中财网身体出现了很多红点:灵活隐藏工作表
来源：百度文库 编辑：中财网 时间：2024/04/28 07:04:35
在某个工作簿中，可能有多个工作表，如果其中有一个工作表不想被人看到内容，可用下面方法将其隐藏，在自己需要时，又能灵活的让它显示出来。
假设工作簿中有三个工作表，其中sheet2工作表不想被外人看到，需要隐藏，当自己需要使sheet2表显示出来时，只要在sheet3表的H1单元格（你可自己任意选择单元格）中输入字符串“abc”（你可自由选择字符串），就可使sheet2工作表显示出来。并且隐藏的工作表，别人不能通过“格式－工作表－取消隐藏”来显示出来。
首先打开使sheet3工作表成为当前工作表，用鼠标右键点它下面的标签，选“查看代码”，会出现VBA窗口，把下面代码复制进去：
Private Sub Worksheet_Activate()
If Range("h1") <> "abc" Then
Sheets("sheet2").Visible = 2 '隐藏
Else
Sheets("sheet2").Visible = -1 '取消隐藏
End If
End Sub
这个代码将在SHEET3工作表激活（从其它工作表进入到SHEET3表）时，被执行。
它会判断sheet3表的H1单元格中是否有字符串abc，如果没有，就将sheet2表隐藏起来，否则，就将sheet2表显示出来。
可以试验一下，当你将sheet3表的H1单元格内容清空后，随便点一个工作表，再重新进入sheet3工作表，这时会发现sheet2表的标签消失了。
然后在sheet3工作表中的H1单元格中输入“abc”时（不要带双引号），随便点一个工作表，再重新进入sheet3工作表，就会发现下面的sheet2表的标签又出现了。
提示：为了防止别人看到或修改你的VBA代码，应当在VBA窗口中，按“工具－VBAProject属性”，会弹出工程属性设置窗口，选“保护”选项卡，勾选里面的“查看时锁定工程”，并设置一个密码，别人就不能轻易的看到你的代码了。