Excel自动锁定单元格代码故障求助：仅锁定部分单元格后停止

核心问题 #

你的代码只执行到C54:G58就停止，根源是没有禁用Excel事件触发：当代码修改单元格的Locked属性时，会再次触发Worksheet_Change事件，导致代码递归执行，最终因Excel的事件递归限制而提前中断，只处理了部分单元格。

另外原代码还存在两个低效/冗余问题：

• 每次触发事件都遍历整个C54:G150区域，完全没必要，应该只处理被修改的目标单元格
• 没有错误处理机制，一旦代码中途出错，工作表会处于未保护状态

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    ' 定义目标区域
    Set rng = Me.Range("C54:G150")
    ' 只处理目标区域内的单元格
    Set rng = Intersect(Target, rng)
    If rng Is Nothing Then Exit Sub
    
    ' 禁用事件，避免递归触发
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 错误处理，确保事件和保护状态恢复
    
    ' 解锁工作表
    Me.Unprotect Password:="1214"
    ' 遍历被修改的单元格
    For Each cell In rng
        cell.Locked = (cell.Value <> "")
    Next
    ' 重新保护工作表
    Me.Protect Password:="1214"

Cleanup:
    ' 恢复事件触发
    Application.EnableEvents = True
    ' 如果有错误，抛出提示
    If Err.Number <> 0 Then MsgBox "执行出错：" & Err.Description
End Sub

关键改进点 #

• 禁用事件递归：通过Application.EnableEvents = False阻止修改Locked属性时再次触发Change事件，确保代码完整执行
• 精准处理范围：用Intersect(Target, rng)只处理被修改且在目标区域内的单元格，大幅提升效率
• 错误处理：通过On Error GoTo Cleanup确保无论代码是否出错，都能恢复事件触发状态，避免后续Excel事件失效
• 简化逻辑：用cell.Locked = (cell.Value <> "")替代原有的If判断，代码更简洁

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