ExcelVBA之sheet完全隐藏

问题： 使某些Excel的文档不直接可见，除非有密码，该命令和隐藏命令不一样，不输入正确密码，根本不知道还有其他sheets如机密文档sheet： 如下文档只可见普通文档，机密文档完全不可见，不是通过取消隐藏来实现可见的。

代码：

Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then

Range("A1").Select
Sheets("机密文档").Visible = xlSheetVisible
'文档可见属性

Sheets("机密文档").Cells.Font.ColorIndex = 56

Else

MsgBox "密码错误,即将退出!"
Sheets("机密文档").Visible = xlSheetVeryHidden
'文档不可见属性，和隐藏不一样

' Sheets("普通文档").Select

End If
End Sub

Private Sub Worksheet_Deactivate()
Sheets("机密文档").Cells.Font.ColorIndex = 2
End Sub

总体图片： 

2.通过普通文档的一些命令再来回复机密文档的显示，因为机密文档一旦不可见，就无法通过机密文档的激活等命令来进行回复可见 ，该文档总共有机密文档和普通文档两个sheet，通过相应的操作来理解sheet的隐藏功能和显示：

普通文档sheet的子函数：

 

普通文档激活情况下的code： 

Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then

Range("A1").Select
ThisWorkbook.Sheets("机密文档").Visible = xlSheetVisible


ThisWorkbook.Sheets("机密文档").Cells.Font.ColorIndex = 56

Else

MsgBox "密码错误,即将退出!"
Sheets("机密文档").Visible = xlSheetVeryHidden

' Sheets("普通文档").Select

End If
End Sub

通过在普通文档激活情况下的正确输入密码，即可实现对机密文档的可视化。

Discussion：该应用方便初学者理解相应的sheet的可视化和不可视