如何用Excel宏实现编辑第4列含“don't edit”单元格时弹出确认弹窗？

实现逻辑 #

• 原有代码的核心问题：使用了SelectionChange事件仅能在选中单元格时触发提示，没有限制编辑权限，同时硬编码了1-3行的范围，无法适配动态新增的行。
• 本次实现通过两个工作表事件配合完成：先用SelectionChange事件记录待编辑单元格的原始值，再用Change事件在用户修改内容后做权限校验，校验不通过则自动回滚原值。
• 没有硬编码行号限制，只要是第4列中内容为don't edit的单元格都会触发规则，天然适配后续新增的行。

完整实现代码 #

首先在对应工作表的VBA代码编辑页顶部，声明模块级变量：

' 存储选中的受保护单元格原始值
Dim oldValue As Variant

然后复制以下两个事件的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 每次切换选中单元格时清空原有存储值
    oldValue = Empty
    ' 仅处理选中单个单元格且属于第4列的场景
    If Target.Column = 4 And Target.CountLarge = 1 Then
        ' 只要单元格内容为受保护标识就记录原值，不限制行号
        If Target.Value = "don't edit" Then
            oldValue = Target.Value
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理之前选中的是受保护单元格的场景
    If Not IsEmpty(oldValue) And Target.CountLarge = 1 Then
        Dim res As Integer
        res = MsgBox("该单元格为受保护内容，确认要修改吗？", vbYesNo + vbQuestion, "编辑确认")
        ' 用户选择不修改则回滚原值，临时关闭事件避免触发死循环
        If res = vbNo Then
            Application.EnableEvents = False
            Target.Value = oldValue
            Application.EnableEvents = True
        End If
        ' 操作完成后清空存储的原值
        oldValue = Empty
    End If
End Sub

使用注意事项 #

• 代码需要粘贴到对应工作表的VBA编辑页面，不要放到通用模块中，否则事件无法正常触发。
• 运行前需要确保Office/WPS已经开启宏功能。
• 如果需要支持多单元格批量编辑的场景，可以自行删除Target.CountLarge = 1的判断，对应补充批量存储原值的逻辑即可。

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