我正在使用 Excel 2003。
我有一本工作簿，里面有大约 20 张纸。1. 我希望工作簿始终在前 2 张隐藏或锁定的情况下打开。2. 我希望管理员能够在提示输入密码以取消隐藏时取消隐藏这些工作表。每张纸都需要不同的密码。3.管理员编辑保存后传给普通用户。当普通用户打开文件时，这两张表应该再次隐藏，就像在步骤 1 中一样。
下面的代码似乎几乎可以满足我的要求，但它只会最小化和最大化工作表。我不想弄乱窗口，而是希望密码在工作表上弹出一个锁，这样它就永远不可见：
Private Sub Worksheet_Activate()
ActiveWindow.WindowState = xlMinimized
If InputBox("Enter Password for this sheet") <> "ABC" Then Sheets("Cust. Pricing").Activate
ActiveWindow.WindowState = xlMaximized
End Sub