设置ThisWorkbook.Saved=True后仍弹出保存提示的VBA技术问题

问题背景 #

修改ActiveX按钮尺寸后，即便执行ThisWorkbook.Saved = True，关闭文件仍会弹出保存提示；点击取消后，Saved属性自动变回False，但执行真实保存则无此问题。需要通过VBA模拟真实保存的效果，同时保留Excel的警告功能。

原因分析 #

ActiveX控件的布局变更（比如调整尺寸）会触发工作表的二进制存储内容更新，Excel内部会给工作表打上"已修改"的底层标记。仅设置Saved属性只是修改了顶层状态标记，无法清除底层的工作表变更标记——关闭文件时Excel会重新检查底层状态，导致Saved被重置为False，进而触发保存提示。

解决方案：模拟真实保存的VBA操作 #

需要先同步控件变更的底层状态，再配合Saved属性设置，以下两种方法可实现需求：

方法1：内存流虚拟保存（无磁盘写入） #

此方法不会修改原文件，仅在内存中完成"虚拟保存"来清除底层变更标记，兼容性强：

Sub SkipActiveXSavePrompt()
    Dim tempStream As Object
    ' 创建二进制内存流
    Set tempStream = CreateObject("ADODB.Stream")
    tempStream.Type = 1
    tempStream.Open
    
    ' 将工作簿保存到内存流，同步底层变更状态
    ThisWorkbook.SaveAs tempStream, FileFormat:=ThisWorkbook.FileFormat
    
    ' 释放资源
    tempStream.Close
    Set tempStream = Nothing
    
    ' 标记工作簿为已保存
    ThisWorkbook.Saved = True
End Sub

方法2：同步控件状态+重置工作表标记 #

若不想使用内存流，可通过刷新控件同步状态，再重置工作表的底层变更标记：

Sub ResetActiveXChangeFlag()
    Dim ws As Worksheet
    ' 遍历包含ActiveX控件的工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 触发控件状态同步到工作表存储
        If ws.Shapes.Count > 0 Then
            ws.Shapes.Range(Array(1)).Name = ws.Shapes.Range(Array(1)).Name
            ws.Shapes.Range(Array(1)).Select False ' 取消选中
        End If
        
        ' 重置工作表Dirty标记（需启用VBA项目访问权限）
        If ThisWorkbook.VBProject.Protection = 1 Then
            ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = ws.CodeName
        End If
    Next ws
    
    ThisWorkbook.Saved = True
End Sub

注意：方法2需要在Excel信任中心开启允许对VBA项目对象模型的编程访问，否则会触发权限错误。

验证步骤 #

1. 修改ActiveX按钮尺寸后，运行上述任意一段VBA代码
2. 在立即窗口执行?ThisWorkbook.Saved，确认返回True
3. 关闭文件，此时不会弹出保存提示，且Saved属性不会被重置

关键说明 #

• 上述方法仅针对ActiveX控件修改的场景清除变更标记，不会关闭Excel的正常保存警告功能
• 方法1无需修改信任中心设置，兼容性更好；方法2更轻量化，但依赖VBA项目访问权限

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