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

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

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

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

4、在模块当中输入如下代码，然后运行

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

    Application.OnKey "^{BREAK}"   '恢复快捷键运行

 

    Sheets("工资表").Visible=xlSheetVeryHidden  '隐藏工资表

 

End Sub

 

Private Sub Workbook_Open()

 

    Sheets("工资表").Visible=True  '若启用宏，则工资表可见

 

    Application.OnKey "^{BREAK}", ""  '禁止使用快捷键中断代码执行

 

End Sub

 

Private 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 If

 

End Sub

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