Excel VBA SaveCopyAs在带加密敏感度标签工作簿重复执行失败

问题现象 #

• 带有启用加密的敏感度标签（企业配置的类Azure信息保护标签，仅允许公司邮箱用户访问）的Excel工作簿，通过VBA的SaveCopyAs执行备份时出现循环异常：
  • 首次运行成功生成副本
  • 第二次运行触发运行时错误'1004'，且已存在的副本被永久删除
  • 第三次运行恢复正常，该异常循环无限重复
• 使用无加密、无访问限制的敏感度标签时，重复执行SaveCopyAs可正常覆盖副本，无报错

触发代码 #

Sub testSaveCopyAs()
    ThisWorkbook.SaveCopyAs "C:\Spreadsheets\Copy.xlsm"
End Sub

将ThisWorkbook替换为ActiveWorkbook，异常现象完全一致

环境信息 #

• Windows 10 Enterprise 64位
• Excel 365 MSO（版本2307 Build 16.0.16626.20198）32位

已知情况与解决方法 #

问题确认 #

这是Office 365处理带加密敏感度标签文档时，SaveCopyAs方法的已知兼容性问题。根源在于加密文件的权限验证逻辑在覆盖已有副本时出现冲突：第二次执行时，系统先尝试删除旧副本，但加密验证的延迟导致删除操作未完成就触发新的保存请求，进而引发报错并导致文件丢失；第三次执行时旧副本已被彻底清理，因此恢复正常。

解决方法 #

1. 先删除旧副本再执行保存
   在SaveCopyAs前添加删除逻辑，规避覆盖时的权限冲突：

   Sub testSaveCopyAs()
       Dim savePath As String
       savePath = "C:\Spreadsheets\Copy.xlsm"
       
       ' 检查并删除已有副本
       If Dir(savePath) <> "" Then
           Kill savePath
           ' 延迟1秒确保文件彻底删除
           Application.Wait Now + TimeValue("00:00:01")
       End If
       
       ThisWorkbook.SaveCopyAs savePath
   End Sub
   

   提示：若旧副本被其他进程占用，Kill会报错，可按需添加错误捕获逻辑。

2. 改用SaveAs方法（需关闭原文件）
   若业务场景允许关闭原工作簿，可使用SaveAs替代SaveCopyAs，加密处理逻辑更稳定：

   Sub testSaveAs()
       Dim originalPath As String
       originalPath = ThisWorkbook.FullName
       
       ThisWorkbook.SaveAs "C:\Spreadsheets\Copy.xlsm", FileFormat:=ThisWorkbook.FileFormat
       ' 重新打开原工作簿
       Workbooks.Open originalPath
   End Sub
   

3. 升级Office版本
   微软在Office 365后续更新（如2309及以后版本）中已修复该加密标签与SaveCopyAs的兼容性问题，建议联系IT部门升级至最新稳定版本。

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