输入密码才可见指定工作表

 

问题：Sheet3只有输入密码才能进入。

查看Sheet3的代码：

Sub Sh()
Dim MyPw  As String
MyPw = InputBox( "请输入密码" ,  "密码" )
If MyPw =  "aaa" Then
    Sheets( "sheet3" ).Visible = 1
    Sheets( "sheet3" ). Select
Else
    MsgBox  "密码错误"
End If
End Sub

可以在Sheet1添加按钮指定该宏。　　

隐藏Sheet3的代码：

Sub Hdd()
Sheets( "sheet1" ). Select
Sheets( "sheet3" ).Visible = 2
End Sub

可以在Sheet3添加按钮指定该宏。

最后为代码设置保护密码：VBE》【工具】》【VBAProject属性】》【保护】》勾选【查看时锁定工程】》设置密码》【确定】

点我下载示例文件