如何抑制Workbook_BeforeSave触发前Excel加载项的保存错误提示？

一、问题根源 #

Workbook_BeforeSave事件是在Excel弹出保存相关提示之后才触发的，所以你之前设置的DisplayAlerts = False拦不住提前出现的错误提示。要解决这个问题，得直接接管保存流程，而不是在默认流程之后补操作。

二、修改后的代码实现 #

把原有的Workbook_BeforeSave事件替换成下面的代码，用户点击Excel常规保存按钮就能直接完成操作，全程无额外提示：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 终止Excel默认保存流程，完全接管操作
    Cancel = True
    
    ' 关闭所有干扰项
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    
    ' 出错时确保恢复Excel设置
    On Error GoTo Cleanup
    
    ' 切换到加载项状态（如果当前不是的话）
    If Not ThisWorkbook.IsAddin Then
        ThisWorkbook.IsAddin = True
    End If
    
    ' 分情况处理保存/另存为
    If SaveAsUI Then
        ' 弹出指定格式的另存为对话框
        Dim savePath As Variant
        savePath = Application.GetSaveAsFilename(FileFilter:="Excel 加载项 (*.xla), *.xla")
        If savePath <> False Then
            ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlAddIn
        End If
    Else
        ' 直接保存当前加载项
        ThisWorkbook.Save
    End If

Cleanup:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Private Sub showSheetsOfAddin()
    If ThisWorkbook.IsAddin Then
        ThisWorkbook.IsAddin = False
    End If
End Sub

三、核心逻辑说明 #

• 先设置Cancel = True，直接打断Excel自带的保存流程，从根源上避免提前弹出的错误提示。
• 全程关闭DisplayAlerts，确保所有系统级提示都被屏蔽。
• 适配用户的两种操作场景：点击普通保存直接完成存储，点击另存为则弹出指定xla格式的对话框，符合常规操作习惯。
• 加入错误处理分支，防止意外情况导致Excel的屏幕更新、提示等设置无法恢复。

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