Worksheet_Change触发正常但无法调用disable1子过程的问题排查

核心问题排查 #

你的代码手动运行disable1正常，但Worksheet_Change调用无效，大概率是事件上下文的控件归属或事件触发逻辑冗余导致，以下是针对性修复：

1. 明确指定CheckBox1的所属工作表 #

如果disable1和Worksheet_Change不在Entry Sheet的代码模块中，直接写CheckBox1会默认指向当前代码模块所属工作表的控件，而非Entry Sheet的。修改disable1代码，明确控件归属：

Private Sub disable1()
    Dim ws As Worksheet
    Set ws = Sheets("Entry Sheet")
    
    Select Case ws.Range("J15").Value
        Case "Site Area Emergency", "General Emergency"
            ws.CheckBox1.Enabled = True
        Case "Alert", ""
            ws.CheckBox1.Enabled = False
        ' 可添加其他值的处理逻辑
        Case Else
            ws.CheckBox1.Enabled = False
    End Select
End Sub

这里用Select Case替代多个ElseIf，代码更简洁易维护。

2. 优化Worksheet_Change事件逻辑 #

当前事件会在任意单元格修改时触发，不仅冗余，还可能因递归触发（比如代码中若有修改单元格的操作）导致异常。修改事件，仅当J15被修改时才调用disable1，同时临时关闭事件触发防止递归：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的是J15单元格时执行逻辑
    If Not Intersect(Target, Me.Range("J15")) Is Nothing Then
        Application.EnableEvents = False ' 关闭事件触发，避免递归
        Call disable1
        Application.EnableEvents = True ' 恢复事件触发
        MsgBox "changed:" & Target.Address
    End If
End Sub

• Intersect(Target, Me.Range("J15"))用于判断修改的单元格是否是J15
• Application.EnableEvents = False必须在操作前设置，操作后恢复，防止因代码修改单元格导致事件重复触发

3. 验证控件类型 #

如果上述修改后仍无效，检查CheckBox1的类型：

• 若为表单控件，需用ws.Shapes("CheckBox1").ControlFormat.Enabled = True/False替代直接的.Enabled
• 若为ActiveX控件，确保控件名称确实是CheckBox1（可在开发工具的控件属性中查看）

测试步骤 #

1. 保存修改后的代码，关闭并重新打开工作簿（确保代码生效）
2. 修改J15单元格的值，观察CheckBox1的状态是否正常变化

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