VBA高级应用30例应用4：利用键盘设置来阻止自动运行事件

最新推荐文章于 2025-07-13 19:46:17 发布

VBA语言専攻

最新推荐文章于 2025-07-13 19:46:17 发布

阅读量1k

点赞数 20

CC 4.0 BY-SA版权

分类专栏： VBA OFFICE 文章标签：开发语言

本文链接：https://blog.youkuaiyun.com/VBA6337/article/details/148541230

VBA 同时被 2 个专栏收录

746 篇文章

订阅专栏

OFFICE

622 篇文章

订阅专栏

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用4：利用键盘设置来阻止自动运行事件

【分享成果，随喜正能量】168 除非自己的认知获得了改变和刷新，否则，人们常说的“顺应自己的内心”，顺的不过是一颗旧心，一颗惯性的，充满了各种习性的套路之心。与“顺应自己的内心”恰恰相反，人要用当下的觉知，去阻止那颗无明的心。

应用4 工作簿打开时阻止事件的自动运行

作为开发人员，需要经常打开包含VBA的文件，并运行代码。但并不总是这样，有时我们还想阻止某些代码的运行，最为典型的是工作簿打开事件中的某些特殊命令，如身份验证部分，我们在某些时候是希望阻止工作簿打开时自动运行的。这篇应用就是向大家展示如何实现这一点。为什么要这么做呢？通常，如果在自己的文件中使用了工作簿自动打开事件，而文件仍在开发中，自动运行Open事件可能需要一段时间才能运行代码，或者在开发文件的程序书写过程中，我们不希望在此时配置项目。

在实际应用中，我们要求用户在打开文件事件中处理某些任务时，一定要启动宏。如果没有设置启用宏，这些事件处理程序会保持禁用状态，这是我们不希望看到的。在这篇应用中，我会同时给大家展示如果用户禁用宏，将不能顺利处理工作簿的方法。但要注意，不信任的宏文件要小心处理。

3 利用键盘设置来阻止自动运行事件

在上一部分我们讲了利用Application的EnableEvents属性来绕过工作簿的打开事件的方案，我们这部分来讲解一下利用键盘设置来绕过身份验证的方案。为什么会有这样的方案呢？在本文的开始部分我讲过，绕过身份验证往往是程序开发人员自己要实现的，那么作为程序开发人员我们确实可以在代码上下功夫，这也可以作为当我们忘记密码时的后门方案。

我们看下面的代码：

Private Sub Workbook_Open()

If ShiftPressed Then Exit Sub

Dim sh As Worksheet

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

代码的截图：

代码讲解：以上代码和第一个程序文件比较，仅仅多了一行代码：If ShiftPressed Then Exit Sub，这句代码的含义是当变量ShiftPressed为真时，则退出代码的运行，也就是说退出了Workbook_Open事件的运行。从而避免了后续代码中身份验证部分。

那么如何根据需要设置变量ShiftPressed为“真”或者“假”呢？我们利用的是下面的代码：

#If VBA7 Then

Declare PtrSafe Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer

#Else

Declare Function GetKeyState Lib "USER32" (ByVal vKey As Long) As Integer

#End If

Const SHIFT_KEY As Long = &H10

Function ShiftPressed() As Boolean

'Returns True if shift key is pressed

ShiftPressed = GetKeyState(SHIFT_KEY) < 0

End Function

代码截图：

代码的讲解：

上述代码利用了API函数GetKeyState来实现此时键盘上“shift”是否按下的判断，如果按下了“shift”键，那么ShiftPressed返回的值为True，否则为False。这里的API函数就是获得“shift”键状态的函数。关于API函数，我的教程中会提供应用介绍，而且还可能提供给您一份非常全面的API资料。

代码的测试：