如何禁止Excel工作簿常规保存，仅允许通过命令按钮触发保存？

这问题很常见，咱们可以通过一个全局开关变量来区分是用户点击专属按钮保存，还是用系统默认的常规保存操作，具体实现步骤如下：

步骤1：声明全局标志变量 #

打开Excel的VBA编辑器（按Alt+F11），找到ThisWorkbook模块，在模块最顶部（所有过程代码之外）声明一个公共布尔变量：

Public AllowSave As Boolean

这个变量就像一个开关，只有点击命令按钮时才会临时打开，让保存操作通过校验。

步骤2：修改Workbook_BeforeSave事件 #

把你原来的事件代码替换成下面的版本，加入对AllowSave变量的判断逻辑：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If AllowSave Then
        ' 是按钮触发的保存，允许执行，之后立刻重置开关
        AllowSave = False
    Else
        ' 常规保存操作（比如Ctrl+S、菜单栏保存），直接阻止并提示
        MsgBox "You can't save this workbook! Please use the dedicated save button."
        Cancel = True
    End If
End Sub

步骤3：编写命令按钮的点击事件 #

找到你的命令按钮所在的工作表（比如Sheet1），或者在模块里编写按钮的点击过程，先打开开关再执行保存：

Sub CustomSave()
    ' 打开允许保存的开关
    ThisWorkbook.AllowSave = True
    
    ' 执行保存操作，这里可以根据你的需求调整：
    ' 如果是直接覆盖保存现有文件：
    ThisWorkbook.Save
    
    ' 如果需要按特定格式保存（比如指定路径、格式为XLSX/CSV等），示例：
    ' ThisWorkbook.SaveAs Filename:="C:\YourFolder\YourCustomFile.xlsx", FileFormat:=xlOpenXMLWorkbook
    
    MsgBox "Workbook saved successfully via custom button!"
End Sub

最后记得把你的命令按钮的OnClick事件关联到这个CustomSave过程。

这样设置后，用户用任何常规保存方式都会被拦截，但点击你的专属命令按钮就能正常完成保存啦！

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