新手求助：根据A列值锁定解锁单元格的宏脚本完善

嗨，作为VBA新手能写出这样的雏形已经很棒了！咱们来一步步完善这个宏，解决核心问题，让它能根据A列的内容精准控制目标单元格的锁定状态。

首先先聊聊原代码的几个小问题：

• 只固定判断[$A1]，不管修改的是哪一行，都只会看A1的值，逻辑不对
• 没有关闭事件触发，修改单元格时会重复触发Worksheet_Change，导致循环报错
• 缺少错误处理，一旦出错可能会让工作表处于无保护状态
• Else分支的解锁逻辑未完成

方案1：按对应行锁定/解锁目标单元格（更常用的场景） #

这个版本会根据你修改的单元格所在行的A列值，锁定/解锁该行的目标列单元格：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，防止修改单元格时无限循环触发宏
    Application.EnableEvents = False
    
    ' 出错时自动清理，确保事件和工作表保护状态恢复
    On Error GoTo Cleanup

    Dim targetRow As Long
    targetRow = Target.Row ' 获取当前修改单元格的行号

    ' 取消工作表保护，有密码就把""替换成你的密码
    ActiveSheet.Unprotect Password:=""

    ' 合并需要控制的目标单元格范围，让代码更简洁
    Dim lockRanges As Range
    Set lockRanges = Union(Me.Cells(targetRow, "E"), _
                          Me.Cells(targetRow, "F"), _
                          Me.Cells(targetRow, "N").Resize(1, 3), ' N-O-P列
                          Me.Cells(targetRow, "X").Resize(1, 3), ' X-Y-Z列
                          Me.Cells(targetRow, "AA").Resize(1, 3)) ' AA-AB-AC列

    ' 统一转大写判断，避免大小写不匹配（比如用户输入"yes"也能识别）
    If UCase(Me.Cells(targetRow, "A").Value) = "YES" Then
        lockRanges.Locked = True ' 锁定目标单元格
    Else
        lockRanges.Locked = False ' 解锁目标单元格
    End If

    ' 重新保护工作表，UserInterfaceOnly:=True表示代码可直接修改锁定单元格，无需反复解锁
    ActiveSheet.Protect Password:="", UserInterfaceOnly:=True

Cleanup:
    ' 不管有没有出错，都恢复事件触发
    Application.EnableEvents = True
    ' 出错时确保工作表回到保护状态，并提示错误信息
    If Err.Number <> 0 Then
        ActiveSheet.Protect Password:=""
        MsgBox "宏执行出错: " & Err.Description, vbExclamation
    End If
End Sub

方案2：按整列锁定/解锁目标单元格（如果你的需求是整列控制） #

如果只要A列有任意一个"Yes"就锁定整列，或者当前修改的A列单元格为"Yes"时锁定整列，可以用这个版本：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo Cleanup

    ' 只处理A列的修改事件
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        ActiveSheet.Unprotect Password:=""

        Dim lockColumns As Range
        Set lockColumns = Union(Me.Columns("E"), Me.Columns("F"), _
                               Me.Columns("N").Resize(, 3), _
                               Me.Columns("X").Resize(, 3), _
                               Me.Columns("AA").Resize(, 3))

        ' 判断当前修改的A列单元格是否为Yes
        If UCase(Target.Value) = "YES" Then
            lockColumns.Locked = True
        Else
            ' 可选：只有当A列完全没有"Yes"时才解锁整列
            If WorksheetFunction.CountIf(Me.Columns("A"), "Yes") = 0 Then
                lockColumns.Locked = False
            End If
        End If

        ActiveSheet.Protect Password:="", UserInterfaceOnly:=True
    End If

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        ActiveSheet.Protect Password:=""
        MsgBox "宏执行出错: " & Err.Description, vbExclamation
    End If
End Sub

关键注意事项 #

1. 默认单元格解锁设置：Excel默认所有单元格都是锁定状态，所以你需要先全选所有单元格，右键→设置单元格格式→保护→取消勾选「锁定」，再运行宏。这样只有被宏标记为Locked=True的单元格才会被保护。
2. 密码替换：如果你的工作表有保护密码，把代码里的""替换成你的实际密码。
3. 测试验证：修改A列的单元格值为"Yes"或其他内容，检查目标单元格的锁定状态是否符合预期。

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