如何自动关闭编辑受保护工作表锁定单元格时的Excel提示框

你说的没错，那个提示框是Excel内置的系统弹窗，不是VBA生成的MsgBox，所以录制宏根本抓不到它的操作——录制宏只能记录你对Excel界面的手动操作，管不了系统级的提示框。不过还是有两种可行的解决办法：

方法1：提前拦截，避免触发提示框 #

既然编辑锁定单元格才会弹框，那我们可以在用户选中这类单元格时就提前处理，从根源上不让弹框出现。

按Alt+F11打开VBA编辑器，找到你要处理的工作表（左侧工程窗口里的工作表名称），双击打开它的代码窗口，粘贴下面的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 检查当前工作表是否受保护，且选中的单元格处于锁定状态
    If Me.ProtectContents And Target.Locked Then
        ' 自动跳转到一个可编辑的单元格（这里假设A1可编辑，你可以自行修改目标单元格）
        Me.Range("A1").Select
        ' 也可以替换成自定义提示，替代系统弹窗
        MsgBox "这个单元格已锁定，无法编辑", vbInformation
    End If
End Sub

这段代码会在用户选中单元格时自动校验，一旦检测到是锁定且工作表受保护的单元格，就直接跳转至可编辑区域，系统弹窗根本没机会弹出。

方法2：用Windows API捕获并关闭系统弹窗 #

如果你需要保留选中锁定单元格的操作，只是想自动关掉那个提示框，可以借助Windows API来捕获这个弹窗并强制关闭。

1. 先在VBA编辑器里插入一个标准模块（右键工程窗口→插入→模块），粘贴以下API声明和关闭弹窗的函数：

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Const BM_CLICK = &HF5
Const WM_CLOSE = &H10

Sub CloseExcelProtectedCellMsgBox()
    Dim hwnd As LongPtr
    ' 查找标题为"Microsoft Excel"的系统窗口（中文系统下该提示框的固定标题）
    hwnd = FindWindow(vbNullString, "Microsoft Excel")
    If hwnd <> 0 Then
        ' 向窗口发送关闭指令
        SendMessage hwnd, WM_CLOSE, 0, 0
    End If
End Sub

2. 回到目标工作表的代码窗口，添加SelectionChange事件来定时触发关闭函数：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Me.ProtectContents And Target.Locked Then
        ' 延迟0.1秒执行关闭操作，给系统弹窗足够的弹出时间
        Application.OnTime Now + TimeValue("00:00:00.1"), "CloseExcelProtectedCellMsgBox"
    End If
End Sub

这个方法会在用户选中锁定单元格后，自动触发关闭系统弹窗的操作，你几乎看不到弹窗就会被关掉。

注意：API方法要匹配Excel版本和系统位数——上面的代码适配64位Excel，32位版本需要把PtrSafe去掉，LongPtr改成Long。

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