如何替换Excel保存按钮为自定义另存为代码？解决BeforeSave无限循环问题

问题分析 #

你的代码陷入无限循环的核心原因是：调用SaveAs时会再次触发BeforeSave事件，虽已设置Application.EnableEvents = False，但缺少对默认保存操作的取消，同时存在语法逻辑错误，导致事件处理流程异常。

修复方案 #

以下是修正后的代码，关键改进点包括取消默认保存操作、修正语法错误、限定单元格引用范围、增加有效性校验：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim File_Name As String
    Dim Old_File As String
    Dim New_File As String
    Dim Answer_Yes As VbMsgBoxResult
    
    On Error GoTo ErrorHandler
    
    ' 取消默认保存操作，避免系统执行原保存流程
    Cancel = True
    
    ' 限定工作表，确保获取正确的文件名（替换为实际存放File_Name的工作表名称）
    File_Name = ThisWorkbook.Worksheets("JE Cover").Range("File_Name").Value
    
    ' 校验文件名是否为空
    If Trim(File_Name) = "" Then
        MsgBox "文件名不能为空，请先填写文件名！", vbExclamation, "错误提示"
        GoTo ErrorHandler
    End If
    
    Old_File = ThisWorkbook.FullName
    
    ' 禁用事件，防止SaveAs再次触发BeforeSave
    Application.EnableEvents = False
    
    ' 执行另存为
    New_File = ThisWorkbook.Path & "\" & File_Name & ".xlsm"
    ThisWorkbook.SaveAs Filename:=New_File, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    
    ' 判断原文件是否为模板，且与新文件不同时，询问是否删除原文件
    If InStr(Old_File, "=JE Template") = 0 Then ' 原文件不是模板
        If Old_File <> New_File Then ' 原文件与新文件路径不同
            Answer_Yes = MsgBox("Delete old file?", vbQuestion + vbYesNo, "User Response")
            If Answer_Yes = vbYes Then
                Kill Old_File
            End If
        End If
    End If

ErrorHandler:
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键修改说明 #

1. Cancel = True：在事件开头设置此参数，告诉Excel取消用户触发的默认保存操作，完全由自定义代码处理保存逻辑。
2. 限定工作表引用：将Range("File_Name")改为ThisWorkbook.Worksheets("JE Cover").Range("File_Name")，确保无论当前活动工作表是什么，都能正确获取文件名（请根据实际工作表名称调整）。
3. 修正If语句逻辑：原代码中InStr(Old_File, "=JE Template") = 0 = True是错误语法，改为InStr(Old_File, "=JE Template") = 0直接判断；用Old_File <> New_File替代InStr(Old_File, New_File) = 0，更直观判断文件是否不同。
4. 增加文件名校验：避免因文件名为空导致的保存失败。
5. 提前定义New_File：先拼接好新文件路径再执行SaveAs，代码逻辑更清晰。

其他注意事项 #

• 确保File_Name是工作表中已定义的命名区域，或者直接使用单元格地址（如Range("A1")）。
• 若模板文件名称确实包含=符号，InStr(Old_File, "=JE Template")的判断是正确的；如果是输入错误（比如应为JE Template），请调整该字符串。

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