用VBA隐藏工作簿中的名称

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

工作簿中的名称属于Names集合的成员，可以使用索引号或名称名来引用到它们，如：

Names (1) '索引号为1的名称
Names ("abc") '名称为abc的名称

要隐藏某个名称，可人设置该名称对象的Visible属性为False即可，如：

Names("abc").Visible = False '隐藏名称为abc的名称

如下图：

在本例中，保存窗体中登录用户名的名称名为UserName，保存密码的名称为PassWord。如果只希望隐藏这两个名称，可以使用下面的过程：

Sub 隐藏名称()
Names("UserName").Visible = False
Names("PassWord").Visible = False
End Sub

如果想隐藏所有名称，可以用下面的过程：

Sub 隐藏所有名称()
Dim n As Name
For Each n In Names
n.Visible = False
Next
End Sub