XLSM另存为XLSX时VBA因新保存提示失效的问题咨询

问题背景 #

我们有一个XLSM文件，用于处理数据并最终另存为不同文件夹中的XLSX格式。此前另存为非宏工作簿时，保存提示有“是”“否”“帮助”三个选项，默认选择“是”即保存并丢弃代码；但现在提示变为四个选项，默认选项为“返回”，导致VBA代码执行失败。此处所指为点击保存后出现的第二个提示，内容为“以下功能无法保存到无宏工作簿中”，该提示从3个按钮变为4个按钮且默认选项为“返回”。此前代码已正常运行多年，但部分用户的Excel现在显示该新提示，设置Application.DisplayAlerts = False时会选择默认的“返回”选项，进而引发代码报错。

失效的保存代码示例：

Sub saveas()
    Dim fil As String, path As String
    Dim wb As Workbook
    Dim Nyfil As String

    Set wb = ThisWorkbook

    fil = wb.Name
    path = wb.path

    Nyfil = Replace(fil, ".xlsm", ".xlsx", , , vbTextCompare)

    wb.Save

    Application.DisplayAlerts = False
    wb.saveas Filename:=path & "\" & Nyfil, FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
End Sub

问题解答 #

1. 如何恢复旧版本的提示？ #

无法直接恢复旧版本提示，这是Excel版本更新（主要是365订阅版）带来的UI逻辑变更。微软调整了宏工作簿转非宏工作簿时的提示流程，新增选项是为了给用户更明确的功能保留选择空间，没有官方途径回退到旧提示样式，只能通过修改VBA代码逻辑绕过该提示。

2. 能否将新提示的默认选项设置为“保存并丢弃功能”？ #

无法直接修改该提示的默认选项，但可以通过两种方式实现等效效果：

• 方案一：复制内容到新工作簿再保存：创建空白工作簿，将原工作簿的所有工作表复制过去，再保存为XLSX格式。此方法彻底隔离宏内容，不会触发功能保存提示。
• 方案二：提前清理宏相关元素：在执行SaveAs前，删除原工作簿中的所有VBA代码、宏控件、公式宏表等宏相关内容，再保存为XLSX即可避免提示。

3. 该新提示是否属于Application.Dialogs集合，若属于，其名称是什么？ #

这个提示不属于Application.Dialogs集合。它是Excel内部的特定警告弹窗，没有对应的内置对话框常量（如xlDialogSaveAs这类可调用的对话框标识），无法通过Dialogs对象直接调用或修改其行为。

修正后的VBA代码示例 #

以下是采用“复制内容到新工作簿”方案的代码，可彻底绕过提示：

Sub SaveAsXlsx()
    Dim wb As Workbook
    Dim newWb As Workbook
    Dim savePath As String
    Dim newFileName As String

    Set wb = ThisWorkbook
    ' 先保存原XLSM文件
    wb.Save

    savePath = wb.Path
    newFileName = Replace(wb.Name, ".xlsm", ".xlsx", , , vbTextCompare)

    ' 创建空白工作簿
    Set newWb = Workbooks.Add(xlWBATWorksheet)
    ' 复制原工作簿所有工作表到新工作簿
    wb.Sheets.Copy Before:=newWb.Sheets(1)
    ' 删除新工作簿默认的空白工作表
    Application.DisplayAlerts = False
    newWb.Sheets(newWb.Sheets.Count).Delete
    ' 保存为XLSX格式
    newWb.SaveAs Filename:=savePath & "\" & newFileName, FileFormat:=xlOpenXMLWorkbook
    ' 关闭新工作簿
    newWb.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Sub

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