Windows钩子激活时，如何防止Excel因未处理错误崩溃？

你的钩子代码本身运行逻辑是正常的，但遇到其他模块的未处理错误就导致Excel崩溃，核心原因在于钩子回调函数运行在Windows的系统消息处理链中——如果进程内出现未捕获的异常并扩散到钩子执行上下文，系统会直接终止整个Excel进程。下面给你几个针对性的解决办法：

• 给钩子回调函数添加严格的错误捕获
  钩子函数foo是系统调用的回调，绝对不能抛出任何未处理异常，哪怕内部出错也要保证函数能正常返回。在VBA里可以用错误捕获机制把所有可能的错误吞掉，避免向上扩散：

  Public Function foo(ByVal nCode As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
      On Error Resume Next ' 捕获所有错误，防止抛出到系统层面
      ' 保留你的原有逻辑，如需添加自定义处理请放在这里
      foo = CallNextHookEx(0, nCode, wParam, lParam)
      
      ' 可选：记录错误日志（注意不要做耗时操作）
      If Err.Number <> 0 Then
          ' 比如写入到指定单元格记录错误信息
          ' Sheet1.Range("A1").Value = "钩子错误：" & Err.Description
          Err.Clear
      End If
  End Function
  

  这里的关键是确保钩子函数始终能返回CallNextHookEx的结果，哪怕内部出错也不能让异常逃出函数边界。

• 添加全局错误捕获机制
  给Excel设置全局错误处理，把其他模块的未处理错误提前拦截，不让它们扩散到钩子上下文。可以在标准模块中添加全局错误处理函数：

  ' 标准模块中添加
  Sub EnableGlobalErrorHandler()
      Application.EnableCancelKey = xlErrorHandler ' 禁用中断键的默认崩溃行为
      Application.OnError = "GlobalErrorHandler" ' 指定全局错误处理函数
  End Sub
  
  Sub GlobalErrorHandler()
      ' 这里可以自定义错误处理逻辑，比如弹窗提示或记录日志
      MsgBox "检测到错误：" & Err.Description & "（错误码：" & Err.Number & "）", vbExclamation
      Err.Clear
      ' 可选：恢复默认错误处理，或者保持全局捕获
      ' Application.OnError = 0
  End Sub
  

  然后在工作簿打开时启用全局错误处理并初始化钩子：

  ' ThisWorkbook模块中添加
  Private Sub Workbook_Open()
      EnableGlobalErrorHandler
      SetHook ' 初始化钩子
  End Sub
  

• 避免在钩子函数中执行耗时操作
  钩子函数运行在系统消息循环的关键路径上，任何耗时操作（比如大量计算、文件读写、弹窗提示）都会拖慢系统响应，甚至间接引发异常。如果需要处理鼠标事件的业务逻辑，尽量把耗时操作异步执行，比如用Application.OnTime延迟处理：

  ' 在钩子函数中触发异步处理
  Public Function foo(ByVal nCode As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
      On Error Resume Next
      foo = CallNextHookEx(0, nCode, wParam, lParam)
      
      ' 仅触发异步任务，不在这里执行耗时逻辑
      If nCode >= 0 Then
          Application.OnTime Now, "ProcessMouseActionAsync"
      End If
  End Function
  
  ' 异步处理逻辑
  Sub ProcessMouseActionAsync()
      On Error GoTo ErrorHandler
      ' 这里放你的业务处理代码
      Exit Sub
  ErrorHandler:
      ' 处理异步逻辑中的错误
      Err.Clear
  End Sub
  

• 及时释放钩子资源
  在工作簿关闭或Excel退出时，确保钩子被正确卸载，避免残留的钩子导致后续异常。在ThisWorkbook模块中添加关闭事件处理：

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
      RemoveHook ' 卸载钩子
  End Sub
  

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