问题：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://www.cnblogs.com/officeplayer/p/16884141.html

1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！ 2. 分享目的仅供大家学习和交流，请务用于商业用途! 3. 如果你也有好源码或者教程，可以到用户中心发布，分享有积分奖励和额外收入！ 4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！ 5. 如有链接无法下载、失效或广告，请联系管理员处理！ 6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！ 7. 如遇到加密压缩包，默认解压密码为"gltf",如遇到无法解压的请联系管理员！ 8. 因为资源和程序源码均为可复制品，所以不支持任何理由的退款兑现，请斟酌后支付下载 声明：如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性