嘿，我之前也踩过这个一模一样的坑！你用Application.DisplayAlerts = False没效果完全正常——因为那个烦人的提示根本不是Excel的标准系统警报，DisplayAlerts参数管不着它。给你几个亲测有效的解决思路：

思路1：用VBA带专属参数重新保护工作表（最推荐） #

手动保护工作表时没有这个隐藏参数，用VBA执行保护时加上UserInterfaceOnly:=True，既能锁定用户界面防止编辑，又不会弹出那个讨厌的提示，还不影响宏对工作表的操作：

Sub ProtectSheetSilently()
    ' 替换成你的目标工作表名称
    With ThisWorkbook.Worksheets("Sheet1")
        .Unprotect Password:="你的密码（如果有的话）" ' 先解锁旧保护
        .Protect _
            Password:="你的密码（可选）", _
            UserInterfaceOnly:=True, _
            ' 下面的参数对应你手动保护时取消的所有选项，全设False即可
            AllowFormattingCells:=False, _
            AllowFormattingColumns:=False, _
            AllowFormattingRows:=False, _
            AllowInsertingColumns:=False, _
            AllowInsertingRows:=False, _
            AllowInsertingHyperlinks:=False, _
            AllowDeletingColumns:=False, _
            AllowDeletingRows:=False, _
            AllowSorting:=False, _
            AllowFiltering:=False, _
            AllowUsingPivotTables:=False
    End With
    Application.DisplayAlerts = False ' 保险起见加上
End Sub

然后把这个宏放到Workbook_Open事件里（比Auto_Open更可靠，不会被轻易禁用）：

Private Sub Workbook_Open()
    ProtectSheetSilently
End Sub

核心原因：UserInterfaceOnly:=True会让工作表只在用户交互层面被保护，Excel不会触发那个专属提示，同时宏可以正常读写工作表内容。

思路2：拦截用户的编辑操作事件 #

如果不想重新设置保护，也可以通过工作表事件+按键拦截来避免触发提示：

1. 拦截选中/双击操作：在目标工作表的代码模块中添加以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 如果选中的是锁定单元格，自动切换到一个未锁定的单元格（比如A1，你可以自己指定）
    If Target.Locked Then
        On Error Resume Next ' 防止A1也被锁定的情况
        Me.Range("A1").Select
        On Error GoTo 0
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 拦截双击编辑锁定单元格的行为
    If Target.Locked Then Cancel = True
End Sub

2. 拦截编辑按键：在模块中添加按键拦截宏，避免用户按Delete/Backspace等键触发提示：

Sub DisableEditKeys()
    ' 拦截常用编辑按键，设为空则不会执行默认操作
    Application.OnKey "{DELETE}", ""
    Application.OnKey "{BACKSPACE}", ""
    Application.OnKey "{ENTER}", ""
    ' 可以根据需要添加更多按键，比如{F2}编辑键
End Sub

Sub RestoreEditKeys()
    ' 关闭工作簿时恢复默认按键行为
    Application.OnKey "{DELETE}"
    Application.OnKey "{BACKSPACE}"
    Application.OnKey "{ENTER}"
End Sub

然后在Workbook事件里调用：

Private Sub Workbook_Open()
    DisableEditKeys
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    RestoreEditKeys
End Sub

思路3：留一个未锁定的“缓冲单元格”（最简单的临时方案） #

手动在工作表里找一个不起眼的单元格（比如最后一行的空白单元格），取消它的锁定状态（右键单元格→设置单元格格式→保护→取消勾选“锁定”），然后保护工作表时勾选“允许用户选择锁定单元格”。这样用户误触时，Excel会自动跳转到这个未锁定单元格，不会弹出提示。不过这个方法体验一般，适合临时救急。

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