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

问题：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属性】》【保护】》勾选【查看时锁定工程】》设置密码》【确定】

​​点我下载示例文件​​

原博客各种作……所以换阵地了，不过每篇都搬过来，实在有点累，想看就自己看吧：http://blog.sina.com.cn/pureiceshadow