Excel VBA：执行其他代码后BeforeDoubleClick事件失效求助

问题根源 #

核心问题大概率是后续执行的代码中关闭了事件触发（Application.EnableEvents = False）但未恢复，导致Excel不再响应双击事件。另外你直接调用事件方法的方式本身不正确，且事件代码里用ActiveCell而非Target存在逻辑漏洞。

具体修复步骤 #

1. 重构事件代码，抽离核心逻辑 #

把勾选标记的逻辑拆成独立子过程，既避免重复代码，也方便后续代码复用：

' 独立的勾选切换子过程，可被事件和其他代码调用
Private Sub ToggleCheckMark(ByVal targetCell As Range)
    If targetCell.Value = ChrW(&H2713) Then
        targetCell.ClearContents
    Else
        targetCell.Value = ChrW(&H2713)
    End If
End Sub

' 修正后的BeforeDoubleClick事件
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim triggerRange As Range
    ' 定义需要响应双击的单元格范围
    Set triggerRange = Me.Range("T4, T11, T17, T26, T30, T39, T43, T48")
    
    ' 判断双击的是否是目标单元格
    If Not Intersect(Target, triggerRange) Is Nothing Then
        Application.EnableEvents = False ' 关闭事件防止递归触发
        ToggleCheckMark Target ' 调用核心逻辑
        Cancel = True ' 取消默认的单元格编辑行为，提升操作体验
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

注：把ActiveCell改成Target是因为双击的单元格不一定是当前激活的单元格，用Target才能准确操作双击的对象。

2. 确保后续代码不会“锁死”事件 #

所有包含Application.EnableEvents = False的后续代码，必须通过错误处理确保事件被恢复，哪怕代码执行出错也不会留后遗症：

Sub 你的后续执行代码()
    On Error GoTo Cleanup ' 捕获错误，跳转到清理步骤
    
    Application.EnableEvents = False
    ' --------------------------
    ' 这里写你的后续代码逻辑
    ' --------------------------
    
Cleanup:
    ' 无论代码是否出错，强制恢复事件触发
    Application.EnableEvents = True
    ' 如果有错误，继续抛出错误方便排查
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

3. 不要直接调用事件方法 #

你之前用Call Sheets("Front_Page").Worksheet_BeforeDoubleClick(Nothing, False)的方式完全错误，事件是Excel自动触发的，不是手动调用的。如果后续代码需要给某个单元格切换勾选，直接调用抽离的子过程即可：

' 示例：给Front_Page工作表的T4单元格切换勾选标记
ToggleCheckMark Sheets("Front_Page").Range("T4")

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