如何设置工作表打开密码

poly

在EXCEL中一般默认有三个工作表（Sheet1,Sheet2,Sheet3）,我想要只限制其中一个工作表（如Sheet2),在打开这个工作表（Sheet2)时提示输入密码,当密码正确后才能进入,否则退回当前工作表页面,但只限制某一个或几个工作表,其它的不限制!
如下图,当前停留在Sheet1,当鼠标点击Sheet2时,弹出密码输入框提示输入密码,密码正确则进入,否则反回当前.

liwen

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

麻烦斑竹大人解释一下这断代码，并告诉我如何使用，感激不尽！

liwen

.

poly

我用的是2007版，你那个绩效考核001好象不管用呢，打开任何一个工作表都不要密码，我把密码复制到我自己的EXCEL中也一样，跟没设一样。关闭EXCEL或保存代码时还出现两个提示。

liwen

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

poly

是不是使用宏可以禁用？

pureshadow

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

apple983

不错，学习了。

jianghu31

在去找点基础的学习去