怎样使用VBA禁止进入工作表

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^{BREAK}" '恢复快捷键运行 Sheets("工资表").Visible=xlSheetVeryHidden '隐藏工资表End SubPrivate Sub Workbook_Open() Sheets("工资表").Visible=True '若启用宏，则工资表可见 Application.OnKey "^{BREAK}", "" '禁止使用快捷键中断代码执行End SubPrivate Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name="工资表" Then '当进入工资表时执行代码 If InputBox("请输入查看密码", "权限设定", "0")="888" Then '密码正确时 Sheets("工资表").Select '进入工资表 [a1].Select '选择A1 Else '否则 [a1048576].Select '定位于工作表末尾，防止在输入密码窗口中查看工作表内容 Sheets("人事出勤表").Select '退回到人事出勤表 End If End IfEnd Sub

5、重新启动工作簿，单击“工资表”，将提示输入查看密码，如图所示。如果密码正确，则可查看工作表，否则退出。