使用VBA保护工作表

2024-10-12 14:35:59

1、在开发工具选项卡中单击visual basic，进入VBA编辑界面

2、双击其中一个worksheet，进入该表属性编辑窗口，窗口中上方，第一个下拉菜单选择worksheet，第二个选择active

4、VBA完整代码如图所示：

7、完整的代码：Private Sub Worksheet_Activate()If Application.InputBox("请输入操作权限密码:") = 123 ThenRange("A1").SelectSheets("机密文档").Cells.Font.ColorIndex = 56ElseMsgBox "密码错误,即将退出!"Sheets("普通文档").SelectEnd IfEnd SubPrivate Sub Worksheet_Deactivate()Sheets("机密文档").Cells.Font.ColorIndex = 2End Sub如果要以本代码为例做实验，必须要有两个sheet，如图所示：