VBA - 阻止 Excel 2007 显示定义的名称消息框？

Question

我正在处理 Excel 2007 工作簿，该工作簿将包含一个宏，用于将当前工作表(模板)另存为

1. PDF 文件(没问题)
2. Excel 97-2003 文件(问题)

保存 Excel 文件时，会出现一个消息框询问

“此工作簿中公式的定义名称在重新计算时可能会显示不同的值...您希望 Excel 在打开此工作簿时重新计算所有公式吗？”。

然后用户可以选择是/否，然后文件将保存。

如何禁止显示消息框？
默认答案是“否”。

我的code用于保存:

Sub saveAs_97_2003_Workbook(tempFilePath As String, tempFileName As String)
    Dim Destwb As Workbook
    Dim SaveFormat As Long

    'Remember the users setting
    SaveFormat = Application.DefaultSaveFormat
    'Set it to the 97-2003 file format
    Application.DefaultSaveFormat = 56

    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
    Destwb.CheckCompatibility = False

    With Destwb
        .SaveAs tempFilePath & tempFileName & ".xls", FileFormat:=56
        .Close SaveChanges:=False
    End With

    'Set DefaultSaveFormat back to the users setting
    Application.DefaultSaveFormat = SaveFormat
End Sub

Answer 1

尝试将其放在“With”、“End With”周围:

Application.DisplayAlerts = False

With Destwb
    ...
End With

Application.DisplayAlerts = True

应该抑制该消息，但不确定它是否会按照您想要的方式默认。