保住Excel2000文件的秘密

通常，保护工作表的方法是使用Excel 2000菜单中的“保护”命令。有时候这还不够。比如一些机密文档，有些用户是看不到的，但是需要操作工作簿中的一些表格。我该怎么办？VBA可以用来设置使用工作表的权限，这样他只能看到与他的工作相关的部分。

在Excel 2000中，单击“工具”,在下拉菜单中单击“宏”,单击“Visual Basic编辑器”,打开“项目资源管理器”,然后双击工作表。现在，出现一个用于设置表格属性的编辑窗口。单击窗口左上角的下拉列表框，选择工作表，然后从

私有Sub Worksheet _ Activate()
End Sub

添加代码(假设密码为“123”，工作表“机密文档”为受限权限文档，工作表“普通文档”为工作簿中可由他人操作的工作表)，程序如下:

Privateworksheet _ activate()如果应用。Inputbox("请输入操作权限密码:")= 123然后range ("A1 ")。选择纸张
(“机密文件”)。cells . font . colorindex = 56 else
msgbox "密码错误。"
张(“普通文件”)。选择
end if
end sub
private sub-workshop _ deactivate()
表(“机密文档”)。cells.font.colorindex = 2