Excel宏保存文件后进度条无法消失问题求助

这问题我之前帮同事排查过类似的，TITUS这类数据防泄露工具确实会和Excel宏的事件触发机制“打架”，给你几个经过验证的解决思路：

1. 针对性禁用TITUS加载项（而非全局关闭事件） #

全局设置Application.EnableEvents = False会把Excel自身的保存相关事件也给屏蔽了，这就是进度条卡住的根源——Excel后台的保存收尾流程没走完。不如只临时禁用TITUS的加载项，完成保存后再恢复：

Dim titusAddIn As AddIn
On Error Resume Next ' 防止加载项名称不对报错
Set titusAddIn = Application.AddIns("TITUS Classification for Microsoft Office")
On Error GoTo 0

If Not titusAddIn Is Nothing Then
    ' 临时禁用TITUS加载项
    titusAddIn.Installed = False
    ' 执行保存操作
    ThisWorkbook.Save
    ' 恢复TITUS加载项
    titusAddIn.Installed = True
Else
    ' 如果找不到TITUS加载项，退而求其次用全局禁用+刷新
    Application.EnableEvents = False
    ThisWorkbook.Save
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    DoEvents
End If

注意：不同版本的TITUS加载项名称可能略有不同，你可以在Excel的「文件>选项>加载项」里找到准确的名称替换进去。

2. 直接通过VBA指定TITUS分类（彻底跳过手动选择） #

TITUS支持通过自定义文档属性直接设置分类，不用弹出选择框，这是最稳妥的方案：

' 方法1：用分类名称（注意名称要和TITUS里的完全一致）
ThisWorkbook.CustomDocumentProperties("TITUS_Classification").Value = "内部文档"

' 方法2：用分类GUID（更可靠，避免名称变更）
' 你可以从TITUS管理控制台导出分类模板获取GUID
' ThisWorkbook.CustomDocumentProperties("TITUS_ClassificationID").Value = "XXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX"

' 执行保存
ThisWorkbook.Save

如果运行时提示找不到自定义属性，先手动给一个文件设置分类，再打开VBA编辑器查看该文件的CustomDocumentProperties列表，确认属性名称是否正确。

3. 修复全局禁用事件后的进度条问题 #

如果你还是想沿用原来的临时方案，记得在保存后强制刷新Excel的界面消息，让进度条正常关闭：

Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
' 强制Excel处理后台消息，关闭进度条
Application.ScreenUpdating = True
DoEvents

DoEvents会让Excel暂停宏执行，处理完所有待处理的界面消息，进度条就会消失了。

另外建议先咨询公司的IT部门，他们可能有TITUS与VBA集成的官方方案，毕竟不同企业的TITUS配置可能不一样。

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