如何让恢复NumLock的Application_Calculate事件在所有工作簿生效？

我完全懂你的困扰——那个Sun Financials AddIn用SendKeys搞乱了NumLock，而且你需要让恢复代码在所有打开的工作簿里生效，之前试了Personal.xlsb的ThisWorkbook没效果对吧？别担心，咱们用应用级事件监听的方案来彻底搞定它：

步骤1：创建类模块捕获全局Application事件 #

单独的工作簿事件只能监听自身的计算，没法覆盖所有打开的文件，所以我们需要一个类模块来绑定Excel应用的全局事件：

1. 打开VBA编辑器（按下Alt+F11），找到左侧的Personal.xlsb项目
2. 右键点击Personal.xlsb → 插入 → 类模块
3. 在属性窗口（没显示的话按F4）把这个类模块的名称改成AppEvents（别用默认的Class1，方便后续识别）
4. 在这个类模块里粘贴以下代码：

Public WithEvents App As Application

Private Sub App_Calculate()
    ' 检查NumLock状态，关闭的话就恢复
    ' 这里推荐用API方法（更稳定），也可以保留你的SendKeys代码
    ' ------------------- API方法（推荐） -------------------
    Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
    Declare PtrSafe Function keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) As Void
    
    Const VK_NUMLOCK = &H90
    Const KEYEVENTF_KEYUP = &H2
    
    ' 判断NumLock是否关闭（GetKeyState返回值的最低位为1表示开启）
    If (GetKeyState(VK_NUMLOCK) And &H1) = 0 Then
        ' 模拟按下再松开NumLock键
        keybd_event VK_NUMLOCK, 0, 0, 0
        keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0
    End If
    
    ' ------------------- 你的SendKeys方法（可选） -------------------
    ' If Not NumLock Then
    '     SendKeys "{NUMLOCK}"
    ' End If
End Sub

小贴士：API方法比SendKeys更可靠，因为SendKeys依赖当前窗口焦点，如果Excel不是激活状态可能失效，而API直接在系统级别模拟按键，不受焦点影响。

步骤2：初始化类模块，绑定Application事件 #

接下来要让Personal.xlsb启动时就加载这个事件监听：

1. 打开Personal.xlsb里的ThisWorkbook模块
2. 粘贴以下代码：

' 声明全局变量保存类实例，防止被垃圾回收机制销毁
Private appEvents As AppEvents

Private Sub Workbook_Open()
    ' 初始化类并绑定到Excel应用
    Set appEvents = New AppEvents
    Set appEvents.App = Application
End Sub

步骤3：确保Personal.xlsb自动启动 #

最后要保证Excel每次打开时都会加载Personal.xlsb，这样事件监听才会一直生效：

• 打开Excel → 文件 → 选项 → 信任中心 → 信任中心设置 → 受信任位置
• 找到「启动」文件夹的路径，把你的Personal.xlsb放在这个文件夹里；或者直接在Excel的「文件 → 打开」里找到Personal.xlsb，勾选「下次启动时打开」

为什么之前的方法没用？ #

你之前把Application_Calculate放在Personal.xlsb的ThisWorkbook里，其实这个事件是工作簿级别的，只会在Personal.xlsb自身计算时触发，而不是全局所有工作簿的计算事件。只有通过类模块绑定Application对象的Calculate事件，才能监听整个Excel应用的所有计算操作。

内容的提问来源于stack exchange，提问作者Johnny C