Office中国论坛/Access中国论坛

标题: 如何设置工作表打开密码 [打印本页]

作者: poly 时间: 2009-8-31 22:33
标题: 如何设置工作表打开密码
在EXCEL中一般默认有三个工作表（Sheet1,Sheet2,Sheet3）,我想要只限制其中一个工作表（如Sheet2),在打开这个工作表（Sheet2)时提示输入密码,当密码正确后才能进入,否则退回当前工作表页面,但只限制某一个或几个工作表,其它的不限制!
如下图,当前停留在Sheet1,当鼠标点击Sheet2时,弹出密码输入框提示输入密码,密码正确则进入,否则反回当前.
[attach]39470[/attach]

作者: liwen 时间: 2009-8-31 23:14
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet2" Then
If InputBox("aa", "bb") <> "AA" Then
Sheets(1).Select
End If
End If

End Sub

作者: poly 时间: 2009-9-1 22:04
麻烦斑竹大人解释一下这断代码，并告诉我如何使用，感激不尽！

作者: liwen 时间: 2009-9-2 09:51
.

作者: poly 时间: 2009-9-2 21:54
我用的是2007版，你那个绩效考核001好象不管用呢，打开任何一个工作表都不要密码，我把密码复制到我自己的EXCEL中也一样，跟没设一样。关闭EXCEL或保存代码时还出现两个提示。
[attach]39516[/attach]
[attach]39517[/attach]

作者: liwen 时间: 2009-9-3 10:06

未使用2007,在2003的VBA窗口工程中ThisWorkbook对象中选择workbook的SheetActivate方法中执行相应的代码.

作者: poly 时间: 2009-9-6 10:55
是不是使用宏可以禁用？

作者: pureshadow 时间: 2009-9-7 12:09
2007版的需要另存为XLSM类型的文件，即“启用宏的工作簿”
隐私问题警告对话框可以通过以下方式取消：EXCEL选项》信任中心》信任中心设置》个人信息选项》文档特定设置》勾销“保存时从文件属性中删除个人信息”

作者: apple983 时间: 2009-9-12 09:19
不错，学习了。

作者: jianghu31 时间: 2009-9-12 11:08
在去找点基础的学习去

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)