基于其他单元格值锁定/解锁单元格的VBA问题求助

嘿，我之前也踩过这个坑，这个报错主要是工作表保护状态的切换逻辑混乱加上Worksheet_Change事件的循环触发导致的。咱们一步步来搞定它：

先理清错误根源 #

你的原代码有两个核心问题：

1. 重复切换保护状态：在每个If分支里单独执行Unprotect和Protect，当D6和D7的条件同时触发时（比如D6设为0后，D7的判断逻辑也会运行），很可能会在工作表处于保护状态时尝试修改Locked属性，直接触发报错。
2. 事件循环触发：修改单元格的Locked属性时，某些情况下会再次触发Worksheet_Change事件，导致代码嵌套执行，进而引发冲突。

解决方案分步走 #

第一步：做好工作表初始锁定设置 #

在写代码前，先手动配置单元格的默认锁定状态，这是基础：

• 选中整个工作表，右键→设置单元格格式→保护，勾选「锁定」，点击确定。
• 单独选中D4、D5，右键→设置单元格格式→保护，取消勾选「锁定」，点击确定。
• 这样就确保了：除D4、D5永久解锁外，其他单元格默认锁定，后续VBA只需要控制D6和D7的锁定状态。

第二步：替换为修正后的VBA代码 #

把你原来的代码换成下面的版本，我会逐行解释关键逻辑：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理D6或D7的修改，避免不必要的代码执行
    If Intersect(Target, Range("D6:D7")) Is Nothing Then Exit Sub
    
    ' 禁用事件触发，防止循环调用Worksheet_Change
    Application.EnableEvents = False
    
    ' 错误处理：确保出错时能恢复事件和保护状态
    On Error GoTo Cleanup
    
    ' 统一解除工作表保护
    ActiveSheet.Unprotect Password:=""
    
    ' 根据D6的值设置D7的锁定状态
    If Range("D6").Value <> 0 Then
        Range("D7").Locked = True
    Else
        Range("D7").Locked = False
    End If
    
    ' 根据D7的值设置D6的锁定状态
    If Range("D7").Value <> 0 Then
        Range("D6").Locked = True
    Else
        Range("D6").Locked = False
    End If
    
    ' 重新保护工作表，关键参数UserInterfaceOnly:=True
    ' 这个参数让工作表在用户界面锁定，但VBA可以直接修改锁定状态
    ActiveSheet.Protect Password:="", UserInterfaceOnly:=True
    
Cleanup:
    ' 不管是否出错，都要恢复事件触发
    Application.EnableEvents = True
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "发生错误：" & Err.Description, vbExclamation
    End If
End Sub

代码核心亮点说明 #

• Intersect判断：只当修改的是D6或D7时才执行代码，减少无效运行。
• Application.EnableEvents = False：彻底避免修改锁定状态时触发事件循环，从根源解决嵌套执行的问题。
• 统一管理保护状态：只在开头解除保护，结尾重新保护，避免多次切换状态导致的冲突。
• UserInterfaceOnly:=True：这个参数是关键！设置后，工作表在用户端是锁定的，但VBA可以直接修改单元格锁定属性，不需要每次都解锁，稳定性大幅提升。
• 错误处理分支：确保即使代码出错，也能恢复事件触发，不然下次修改单元格时事件会直接失效。

第三步：测试验证 #

1. 保存并关闭VBA编辑器，回到工作表。
2. 测试场景：
   • 在D6输入非0值，D7会被锁定无法编辑；把D6改回0，D7自动解锁。
   • 在D7输入非0值，D6会被锁定；把D7改回0，D6自动解锁。
   • 除D4、D5外的其他单元格始终处于锁定状态，完全符合需求。

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