Excel VBA根据单元格值控制行显隐的代码故障排查求助

原代码核心问题分析 #

1. ActiveSheet依赖风险：原代码用ActiveSheet操作，但触发Worksheet_Change事件的工作表不一定是当前激活的工作表，会导致操作错位。
2. 逻辑覆盖不全：仅当工作表处于保护状态时才执行行显示/隐藏逻辑，若工作表未锁定，代码完全不生效。
3. Target匹配漏洞：当批量修改单元格（如复制粘贴到M10）时，Target.Address不等于$M$10，触发条件失效。
4. 未处理事件循环：修改行隐藏状态可能触发额外的Worksheet_Change事件，引发错误或死循环。

修复后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查M10是否在修改范围内
    If Not Intersect(Target, Me.Range("$M$10")) Is Nothing Then
        ' 临时禁用事件，避免循环触发
        Application.EnableEvents = False
        
        ' 无论工作表是否保护，先解锁（未保护时Unprotect不会报错）
        Me.Unprotect Password:="TL1234"
        
        ' 根据M10的值控制行显示/隐藏
        Me.Rows("18:20").EntireRow.Hidden = (Me.Range("$M$10").Value <= 0)
        
        ' 重新锁定工作表
        Me.Protect Password:="TL1234"
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改说明 #

• 用Me替代ActiveSheet：Me始终指代触发事件的当前工作表，避免操作错位。
• 移除ActiveSheet.ProtectContents判断：无论工作表是否保护，都执行解锁-修改-锁定流程，确保逻辑全覆盖（未保护时Unprotect不会抛出错误）。
• 用Intersect判断Target：只要M10被修改，无论是否批量操作，都能触发逻辑。
• 添加Application.EnableEvents控制：临时禁用事件防止修改行状态时重复触发Worksheet_Change。

内容的提问来源于stack exchange，提问作者jonathan Jonfan brandstrup