如何设置仅当对应B列单元格为0时才可修改Excel A列单元格？

方法一：VBA 工作表事件实现 #

这是精准控制的首选方案，通过工作表的两个事件配合，从选中和修改两个环节限制操作：

操作步骤 #

右键目标工作表标签 → 选择「查看代码」，粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理A列单个单元格的选中事件
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        ' 检查对应行B列的值是否为0
        If Me.Cells(Target.Row, 2).Value <> 0 Then
            MsgBox "该行B列不为0，无法编辑A列单元格", vbExclamation
            ' 跳转选中同C列单元格，避免停留在不可编辑的A列
            Me.Cells(Target.Row, 3).Select
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理A列单个单元格的修改事件
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        ' 验证对应行B列状态，非法修改直接撤销
        If Me.Cells(Target.Row, 2).Value <> 0 Then
            Application.EnableEvents = False ' 防止触发循环事件
            Application.Undo
            MsgBox "该行B列不为0，禁止修改A列单元格", vbCritical
            Application.EnableEvents = True ' 恢复事件触发
        End If
    End If
End Sub

代码说明 #

• Worksheet_SelectionChange：提前拦截——选中A列单元格时先校验B列值，不符合条件直接提示并跳转，从源头上阻止编辑操作。
• Worksheet_Change：兜底防护——如果用户通过粘贴等方式绕过选中提示，直接撤销非法修改并给出警告。

方法二：无VBA方案（工作表保护+单元格锁定） #

如果不想使用宏，可通过原生功能实现类似效果：

步骤1：配置单元格锁定状态 #

1. 点击工作表左上角行号列标交叉处全选单元格，右键 → 「设置单元格格式」→ 「保护」→ 取消勾选锁定 → 确定。
2. 选中整个A列，右键 → 「设置单元格格式」→ 「保护」→ 勾选锁定 → 确定。
3. 选中A列中对应B列为0的单元格：用条件格式筛选（开始→条件格式→新建规则→使用公式确定要设置格式的单元格，输入=$B1=0），筛选后选中符合条件的单元格，右键 → 「设置单元格格式」→ 「保护」→ 取消勾选锁定 → 确定。

步骤2：启用工作表保护 #

点击「审阅」→ 「保护工作表」，设置可选密码，在「允许此工作表的所有用户进行」列表中勾选选定未锁定的单元格，点击确定。

设置完成后，仅A列中对应B列为0的单元格处于可编辑状态，其余A列单元格被锁定无法修改。

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