excel表格名称的秘密( 三 ) _知识经验

同样，任何外部子过程遍历加载项的Names集合，可以读取、修改和删除中所有隐藏的或者未隐藏的工作簿名称。
隐藏的名称空间避免了这些危险，它也比基于环境字符串的实例、临时文件或注册输入等方法更简单，而且隐藏的名称空间是永久的，用户能关闭和重新打开该工作簿而无须重新设置这个计数器。
在下面的代码中，函数SetHName、GetHName和DelHName允许创建、获取和删除隐藏的名称，而无须直接使用冗长的Application.ExecuteExcel4Macro方法。
Sub Main()
Application.EnableCancelKey = xlDisabled
Dim Count
Count = GetHName(“TswbkCount”)
If IsError(Count) Then
SetHName “TswbkCount”, 3
ElseIf Count = 1 Then
MsgBox “宏被禁止. 你必须重新启动Excel.”, vbInformation
Else
SetHName “TswbkCount”, Count – 1
End If
End Sub
Sub SetHName(Name As String, Value)
Application.ExecuteExcel4Macro _
“SET.NAME(“”” & Name &”””,” & Value & “)”
End Sub
Function GetHName(Name As String)
GetHName = Application.ExecuteExcel4Macro(Name)
End Function
Sub DelHName(Name As String)
Application.ExecuteExcel4Macro”SET.NAME(“”” & Name & “””)”
【excel表格名称的秘密】End Sub

excel表格名称的秘密( 三 )

推荐阅读

判断母兔是否怀孕的方法新手怎么知道兔子怀孕了

微信etc办理流程你知道吗

炒瓢菜的正确使用方法炝炒瓢儿菜的做法

喷雾器有药残怎么清洗

铁炉堡的斯拉兹在哪

沙皮狗臭吗注意该犬的皮肤清洁

暖气安装的正确方法关于暖气安装的正确方法

正确开自动挡车的方法正确开自动挡车的方法图解

八达岭长城是什么朝代建的八达岭长城在哪里

冰皮月饼馅料有哪些常见的冰皮月饼馅料介绍

母大闸蟹里面黑色膏状可以吃吗？

《魔鬼kiss》最新txt全集下载

要恰饭的嘛是什么意思

黄杨木雕保养的注意事项

怎样养护九里香盆景养护盆栽小妙招

打瓜籽晾晒方法瓜子有什么功效与作用

从南昌坐飞机到上海需要多少钱？

怎样做肉火烧？

茶叶蛋放两天还能吃吗茶叶蛋放了两三天还能吃吗

三色堇怎么扦插