27、Excel VBA：查看隐藏工作表与跨表跨工作簿搜索

Excel VBA：查看隐藏工作表与跨表跨工作簿搜索

1. 无密码查看隐藏工作表

在Excel中，若对工作表设置了密码保护并隐藏，通常在无密码情况下无法查看。但借助VBA语言，可利用Excel对象模型中的“后门”实现查看隐藏工作表的目的。

1.1 创建隐藏工作表

在当前工作簿中创建隐藏工作表，操作步骤如下：
1. 点击菜单栏中的“Home”项。
2. 在功能区的“Cells”控件中点击“Format”（位于功能区右侧）。
3. 在弹出菜单的“Visibility”选项卡中选择“Hide & Unhide”。
4. 在进一步弹出的菜单中选择隐藏当前工作表。

1.2 创建用户界面（UserForm）

为给用户提供操作界面，需插入新的UserForm，操作如下：
1. 在VBE菜单中选择“Insert | UserForm”。
2. UserForm应包含两个列表框，一个显示所有隐藏工作表，另一个显示可能的目标工作表（即可见工作表）。
3. 添加两个标签控件，用于显示列表框的标题，让用户明确各列表框的含义。
4. 添加“OK”和“Cancel”两个命令按钮。
5. 可通过点击表单并在“Properties”窗口中修改“Caption”属性来更改表单标题。

以下是UserForm激活事件的代码：

Private Sub UserForm_Activate()
    ListBox1.Clear
    ListBox2.Clear
    For