为何设置Application.EnableEvents会触发运行时错误'50290'？

针对你在自定义xlXExcelApplication类模块的WorkbookBeforeSave事件中遇到的运行时错误'50290'，以下是几种可能的原因及对应的解决思路：

• 类模块与全局Application对象的上下文冲突
  自定义Application类模块是对Excel Application对象的事件绑定封装，在WorkbookBeforeSave事件触发的瞬间，全局Application对象可能处于内部状态锁定的临界上下文。直接修改全局对象的EnableEvents属性会触发对象上下文冲突，导致无法正常访问对象。
  解决方法：在类模块中使用自身绑定的Application实例而非全局对象。先在类模块中声明私有变量并绑定事件：

  Private WithEvents xlApp As Excel.Application
  
  ' 类初始化时赋值
  Public Sub Initialize(ByVal targetApp As Excel.Application)
      Set xlApp = targetApp
  End Sub
  

  然后在事件处理器中使用该实例修改属性：

  Private Sub xlApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
      xlApp.EnableEvents = False
      ' 执行你的保存逻辑
      xlApp.EnableEvents = True
  End Sub
  

• 事件触发时的Excel内部对象锁定
  WorkbookBeforeSave事件触发时，Excel正处于保存操作的内部处理流程中，此时Application对象的部分属性（包括EnableEvents）可能被暂时锁定，不允许修改。读取属性不受影响是因为读取操作不需要修改对象状态。
  解决方法：将修改EnableEvents的操作延迟到事件处理的末尾，或者通过DoEvents释放当前事件队列后再执行：

  Private Sub xlXExcelApplication_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
      ' 先执行保存前的核心逻辑
      DoEvents ' 释放事件队列，让Excel完成当前内部操作
      Application.EnableEvents = False
      ' 执行需要禁用事件的操作
      Application.EnableEvents = True
  End Sub
  

• 类实例的生命周期异常
  如果自定义类的实例是局部变量（比如在某个过程中声明），可能在事件触发前就被Excel的垃圾回收机制回收，导致事件处理器绑定的对象失效，进而触发对象访问错误。
  解决方法：确保类实例是全局作用域的变量，比如在ThisWorkbook模块中声明：

  Public xlAppWrapper As xlXExcelApplication
  
  Private Sub Workbook_Open()
      Set xlAppWrapper = New xlXExcelApplication
      Set xlAppWrapper.xlApp = Application ' 假设类中有对应的属性赋值
  End Sub
  

• 事件重入导致的对象状态紊乱
  若在WorkbookBeforeSave事件中执行的逻辑间接触发了其他Application事件，可能导致事件重入，进而干扰Application对象的状态，引发错误。
  解决方法：提前规划事件处理逻辑，避免在保存事件中触发其他可能引发重入的操作，或者在修改EnableEvents前先检查当前状态：

  Private Sub xlXExcelApplication_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
      If Application.EnableEvents Then
          Application.EnableEvents = False
          ' 执行操作
          Application.EnableEvents = True
      End If
  End Sub
  

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