嘿，这个棘手的问题我之前也踩过坑！当用户双击带数据验证的单元格快速选择选项时，Excel内部的事件处理正处于一个特殊的“忙状态”，这时候直接修改EnableEvents就会触发那个讨厌的50290错误——你的错误处理里直接写App.EnableEvents = True，刚好撞在了Excel的内部锁定机制上，所以才会报错。

下面给你两个亲测有效的解决方案：

方案1：安全恢复事件状态（即时处理） #

修改类模块里的App_SheetChange事件，先记录初始的事件状态，再在错误处理里用错误抑制逻辑尝试恢复，避免二次报错：

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Source As Range)
    Dim originalEventsState As Boolean
    ' 先记录当前的事件启用状态，避免覆盖用户之前的手动设置
    originalEventsState = App.EnableEvents
    
    On Error GoTo ExitProcedure
    App.EnableEvents = False
    Call RunMySheetChangeProcedure

ExitProcedure:
    ' 只有当我们之前主动禁用了事件，才尝试恢复；用错误抑制跳过可能的50290错误
    If originalEventsState = True Then
        On Error Resume Next
        App.EnableEvents = originalEventsState
        On Error GoTo 0 ' 恢复正常错误处理逻辑
    End If
End Sub

方案2：延迟恢复事件（避开Excel内部锁定） #

如果方案1还是偶尔出现异常，可以用Application.OnTime延迟0秒执行恢复操作，等Excel完成数据验证的交互流程后，再修改EnableEvents：

第一步：更新类模块的事件代码 #

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Source As Range)
    On Error GoTo ExitProcedure
    App.EnableEvents = False
    Call RunMySheetChangeProcedure

ExitProcedure:
    ' 先尝试即时恢复，失败则延迟执行
    On Error Resume Next
    App.EnableEvents = True
    If Err.Number = 50290 Then
        Err.Clear
        ' 延迟0秒触发恢复程序，让Excel先完成当前的交互操作
        Application.OnTime Now, "EnableEventsSafely"
    End If
    On Error GoTo 0
End Sub

第二步：在标准模块（ModuleAppIni）添加恢复子程序 #

Public Sub EnableEventsSafely()
    On Error Resume Next
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

为什么这两种方法有效？ #

出现50290错误的核心原因是：当用户快速操作数据验证单元格时，Excel正处于处理交互的内部流程中，此时它会临时锁定事件设置的权限，不允许外部代码修改EnableEvents。

方案1用错误抑制跳过了锁定状态下的报错，而方案2则是把恢复操作推迟到Excel完成当前交互之后，完美避开了锁定窗口。

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