《VBA高级应用30例》（版权©️10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用4：打开工作簿时自动运行事件的代码修正
【分享成果，随喜正能量】228内心的美，如空谷幽兰，洋溢阵阵芬芳，使人心情愉悦。学道的人，须重视内在的修持，不以华丽的衣着来装饰自己，而以高贵气质来涵育自己，以道德修养来庄严自己。
应用4 工作簿打开时阻止事件的自动运行作为开发人员，需要经常打开包含VBA的文件，并运行代码。但并不总是这样，有时我们还想阻止某些代码的运行，最为典型的是工作簿打开事件中的某些特殊命令，如身份验证部分，我们在某些时候是希望阻止工作簿打开时自动运行的。这篇应用就是向大家展示如何实现这一点。为什么要这么做呢？通常，如果在自己的文件中使用了工作簿自动打开事件，而文件仍在开发中，自动运行Open事件可能需要一段时间才能运行代码，或者在开发文件的程序书写过程中，我们不希望在此时配置项目。
在实际应用中，我们要求用户在打开文件事件中处理某些任务时，一定要启动宏。如果没有设置启用宏，这些事件处理程序会保持禁用状态，这是我们不希望看到的。在这篇应用中，我会同时给大家展示如果用户禁用宏，将不能顺利处理工作簿的方法。但要注意，不信任的宏文件要小心处理。
5 打开工作簿时自动运行事件的代码修正在以上第2,3,4部分我们讲解了阻止工作簿打开时自动运行事件的三种方案，这三种方案在实际应用时是非常方便的，但是，很多读者会说：老师，最方便的方案可以屏蔽宏代码运行。是的，如果我们在工作簿选项中选择禁用宏，就可以屏蔽掉所有的代码运行，设置如下：
但是，以上的设置却不是我们期望的，我们期望就是用户在打开工作薄时录入身份验证密码，那么如何实现用户打开工作薄就必须启用宏，否则文件不能顺利操作呢？为此我们要修正一下上面给出的各个文件。
1）文件“高级应用04_1.XLSM”的代码修正：
我先给出下面的代码修正：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Err_Handle
Dim sh As Worksheet
Set sh = Sheets("BLANK")
GoTo 100
Err_Handle:
Set sh = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
sh.Name = "BLANK"
100:
Err.Clear
Sheets("BLANK").Visible = True
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "BLANK" Then
sh.Visible = xlSheetVeryHidden
End If
Next
ActiveWorkbook.Save
End Sub
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "BLANK" Then
sh.Visible = xlSheetVisible
End If
Next
Sheets("BLANK").Visible = xlSheetVeryHidden
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
sheet.Select
UU = InputBox("请输入您的权限密码", "文件打开确认")
If UU <> "1234" Then
ThisWorkbook.Close (False)
Else
Application.DisplayAlerts = False
sheet.Delete
Application.DisplayAlerts = True
End If
End Sub
代码的截图：
代码的讲解：上述代码利用了我的第一套教程《VBA代码解决方案》中的部分代码，并完善了一下功能，下面进行讲解。
1）Private Sub Workbook_BeforeClose(Cancel As Boolean)
表示事件是在工作簿关闭之前发生。
2）On Error GoTo Err_Handle
Dim sh As Worksheet
Set sh = Sheets("BLANK")
GoTo 100
Err_Handle:
Set sh = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
sh.Name = "BLANK"
以上代码首先是一句错误处理程序，如果发生错误，代码将转到Err_Handle:处继续运行；然后赋值一个对象变量Set sh = Sheets("BLANK")，这是将工作表Sheets("BLANK")赋值给变量sh,如果没有这个工作表，将发生错误，代码会转到Err_Handle:处继续运行，如果没有发生错误就转到标签为100的代码处运行；此时没有Sheets("BLANK")工作表，会创建一个。
2）100:Err.Clear
Sheets("BLANK").Visible = True
以上代码会让Sheets("BLANK")工作表可见。
3）For Each sh In ThisWorkbook.Sheets
If sh.Name <> "BLANK" Then
sh.Visible = xlSheetVeryHidden
End If
Next
以上代码在所有工作表集合间建立一个遍历循环，如果不为Sheets("BLANK")工作表，就令这个工作表的可见属性修正为xlSheetVeryHidden，如下列表：
名称
值
说明
xlSheetHidden
0
隐藏工作表，用户可以通过菜单取消隐藏。
xlSheetVeryHidden
2
隐藏对象，使对象重新可见的唯一方法是将此属性设置为 True（用户无法使该对象可见）。
xlSheetVisible
-1
显示工作表。
我们看一下xlSheetVeryHidden这个属性：隐藏对象，使对象重新可见的唯一方法是将此属性设置为 True（用户无法使该对象可见），所以达到了深度隐藏。
4）For Each sh In ThisWorkbook.Sheets
If sh.Name <> "BLANK" Then
sh.Visible = xlSheetVisible
End If
Next
Sheets("BLANK").Visible = xlSheetVeryHidden
以上代码是工作薄打开事件中发生，也是在工作表集合中发生的遍历循环，是将Sheets ("BLANK")深度隐藏，其他工作表可见。
以上的操作令工作薄在关闭时有用的工作表深度隐藏，只留一个"BLANK"空白的工作表，打开工作薄时会让"BLANK"工作表深度隐藏，而有用的工作表会可见。如果用户没有启用宏，那么用户只能会看到一个"BLANK"空白的工作表。如下图：
而用户启用了宏之后，会正常运行，首先提示用户输入权限密码：
- 以上部分用到的程序文件：高级应用04_4.XLSM
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
