如何用VBA隐藏和取消隐藏工作表

有三种方法：

1、直接在Sheet2标签上点右键，d出的菜单上面有个“隐藏”，点后就可以隐藏它了，想取消隐藏直接在其它工作表标签上点右键——取消，选想取消隐藏的工作表即可。这种方法较方便，取消也方便。当然也可以保护工作薄让人无法轻易取消隐藏。

2、可以用Alt+F11打开VBA编辑器，在左侧上方，选中Sheet2，然后在左下方的属性框内，将Visible（最下面）设成“0－XlsheetHidden”即第二个。也可以实现隐藏Sheet2

3、按Alt+F11打开VBA编辑器，在左侧上方，选中ThisWorkBook，复制代码 PrivateSubWorkbook_Open() Sheet2.Visible=xlSheetVeryHidden EndSub 到右边空白处，保存工作薄，重启时启用宏，也可以实现隐藏Sheet2的效果。

我们在excel中可以隐藏工作表，一般的 *** 作方法是：把需要隐藏的工作表激活成当前工作表，执行一下“格式→工作表→隐藏”命令，即可将其隐藏起来。这样隐藏的工作表，通过执行“格式→工作表→取消隐藏”命令，打开“取消隐藏”对话框（如图1），选中需要显示出来的工作表名称，单击一下“确定”按钮即可将其显示出来。

图1

今天，我给大家介绍一种通过excel的VBA隐藏excel工作表的方法，通过这种方法隐藏的工作表，别人显示不出来。

1、启动Excel，打开相应的工作簿文档。

2、按下Alt+F11组合键进入VBA编辑状态（如图2）。

图2

3、按下F4功能键，展开“属性”窗口（参见图3）。

4、选中相应工作簿中需要隐藏的工作表（如“Sheet3（PPT）”），然后在下面的属性窗口中，找到“Visible”选项，单击其右侧的下拉按钮，在随后出现的下拉列表中，选择 “0-xlSheetVeryHidden”选项。

注意：每个工作簿文档中，至少要有一个工作表不被隐藏。

5、再执行“工具→VBAProject属性”命令，打开“VBAProject-工程属性”对话框（如图3）。

6、切换到“保护”标签下，选中“查看时锁定工程”选项，并输入密码，确定返回（参见图3）。

图3

7、退出VBA编辑状态，保存一下工作簿文档，隐藏实现。

图4

经过这样的设置以后，我们发现“格式→工作表→取消隐藏”命令是灰色的，无法执行如果想通过VBA编辑窗口修改属性，发现需要提供密码（如图4），不知道密码就无法取消隐藏了。

---