Excel带宏工作簿：消除无变更时关闭的保存提示问题

问题根源在于刷新QueryTable时，Excel会强制将ThisWorkbook.Saved设为False，即使刷新后数据无变化。结合你的BeforeSave事件逻辑，可通过调整代码顺序和事件控制来解决：

修改后的BeforeSave事件代码 #

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 先禁用事件，避免刷新QueryTable时触发其他事件干扰Saved状态
    Application.EnableEvents = False

    ' 刷新查询表格
    ThisWorkbook.Worksheets("Sheet2").ListObjects("MyTable").QueryTable.Refresh BackgroundQuery:=False

    ' 执行自定义保存逻辑
    Call CustomSave(SaveAsUI)

    ' 取消Excel默认的保存流程
    Cancel = True

    ' 强制标记工作簿为已保存状态，覆盖刷新带来的False标记
    ThisWorkbook.Saved = True

    ' 重新启用事件
    Application.EnableEvents = True
End Sub

关键调整说明 #

• 提前禁用事件：在刷新QueryTable前就关闭事件触发，避免刷新操作触发工作表变更等事件，导致Saved属性被意外修改。
• 明确标记已保存：在自定义保存完成后，强制设置ThisWorkbook.Saved = True，确保Excel认为工作簿无未保存变更。
• 确保CustomSave逻辑正确：你的CustomSave子程序需正确执行保存操作，示例如下：

  Sub CustomSave(SaveAsUI As Boolean)
      If SaveAsUI Then
          ' 处理另存为操作
          ThisWorkbook.SaveAs Filename:=Application.GetSaveAsFilename, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Else
          ' 直接保存
          ThisWorkbook.Save
      End If
  End Sub
  

额外优化（可选） #

如果希望仅在数据真的发生变化时才刷新QueryTable（避免无意义的Saved属性修改），可通过对比刷新前后的数据判断是否需要执行刷新，但实现相对复杂，适合对性能有要求的场景。

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