VBA中ClearContents函数失效排查：现有工作簿代码无法运行原因？

我尝试用以下VBA代码，根据B31单元格的选择（简易模式/计算器模式）清除D30:E30的内容：

Private Sub Worksheet_Changeo(ByVal ChangedCell As Range)

    Application.EnableEvents = True
    
    If Not Intersect(ChangedCell, Me.Range("B31")) Is Nothing Then
    
        If Me.Range("B31").Value = "Calculator" Then
                Range("D30:E30").Select
                Selection.ClearContents
        End If
        
    End If
    
End Sub

这段代码在新建工作簿里能正常运行，但在当前使用的工作簿中，代码已保存到对应工作表模块，无报错却无法清除目标单元格内容。以下是可能的干扰因素：

• 事件名称拼写错误：代码里的事件名是Worksheet_Changeo，多了一个字母"o"，Excel的工作表变更事件标准名称是Worksheet_Change，名称不匹配的话，Excel不会触发该事件。这是最常见的原因，检查事件名是否正确。
• 事件触发被全局禁用：虽然代码里写了Application.EnableEvents = True，但如果当前工作簿中其他宏曾经将EnableEvents设置为False且未恢复，会导致所有工作表事件都无法触发。可以在立即窗口（按Ctrl+G打开）输入?Application.EnableEvents，如果返回False，输入Application.EnableEvents = True恢复。
• 工作表处于保护状态：如果当前工作表被保护，且D30:E30单元格未设置为允许编辑，执行ClearContents会静默失败。检查工作表是否被保护，若保护则需取消保护，或在代码中添加取消保护和重新保护的逻辑（如有密码需一并处理）。
• 单元格引用不严谨：代码中Range("D30:E30")未明确绑定当前工作表，虽然在工作表模块中默认指向当前表，但如果工作簿存在同名命名范围，可能导致引用错误。建议修改为Me.Range("D30:E30").ClearContents，同时去掉冗余的Select和Selection操作（直接操作单元格更高效可靠）。
• 宏安全限制：当前工作簿的宏安全等级过高，导致事件宏未被启用。检查信任中心的宏设置，确保允许启用工作簿中的宏。
• 目标单元格状态异常：如果D30:E30是合并单元格、被隐藏，或因数据验证/条件格式导致视觉上无变化，实际内容可能已被清除。可以选中单元格查看编辑栏内容确认。

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