Excel 2021快捷键启动VBA宏打开文件时无报错终止问题求助

这是Excel快捷键触发宏时的典型上下文中断问题：通过快捷键绑定的宏在打开新工作簿时，Excel的焦点切换会意外终止原宏执行；而调试模式或菜单启动时因上下文稳定，不会出现该问题。以下是具体解决方法：

• 禁用宏执行期间的屏幕更新与事件触发
  在宏开头添加代码，避免界面刷新或默认事件打断执行流程：

  Sub Main()
      Application.ScreenUpdating = False
      Application.EnableEvents = False
      
      Dim wb As Workbook
      Set wb = Application.Workbooks.Open(Filename:=ThisWorkbook.Path & "\Book1.xlsx", UpdateLinks:=False)
      
      MsgBox "Hi"
      
      Application.ScreenUpdating = True
      Application.EnableEvents = True
  End Sub
  

• 改用Application.OnKey绑定快捷键
  放弃「开发工具>宏>选项」的快捷键设置，在ThisWorkbook模块中添加稳定的绑定逻辑：

  Private Sub Workbook_Open()
      ' 绑定Ctrl+Shift+R到Main宏
      Application.OnKey "^+r", "Main"
  End Sub
  
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
      ' 关闭工作簿时取消绑定，避免影响其他文件
      Application.OnKey "^+r"
  End Sub
  

• 强制保持原工作簿激活状态
  打开新工作簿后立即重新激活原宏所在工作簿，避免焦点切换中断宏：

  Sub Main()
      Dim originalWB As Workbook
      Set originalWB = ThisWorkbook
      
      Dim wb As Workbook
      Set wb = Application.Workbooks.Open(Filename:=ThisWorkbook.Path & "\Book1.xlsx", UpdateLinks:=False)
      
      originalWB.Activate
      MsgBox "Hi"
  End Sub
  

• 检查信任中心宏设置
  确保Excel允许宏正常执行：

  • 打开「文件>选项>信任中心>信任中心设置>宏设置」
  • 选择合适的宏启用选项（如「启用所有宏」或签名宏启用）
  • 勾选「信任对VBA工程对象模型的访问」

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