存储于SharePoint Online的启用宏工作簿频繁损坏问题求助

当前遇到基于统一模板生成的启用宏电子表格故障，核心信息如下：

• 共258个实例，不同实例使用频率有差异，部分实例打开时弹出*「Can't find project or library」*错误，后续无法保存任何修改
• 所有文件存储在SharePoint Online站点，用户仅能通过Excel客户端修改
• 所有用户设备为统一镜像的Windows 10+Office 365 ProPlus，无环境差异
• 本地部署版SharePoint也曾出现相同问题，排除Online版本独有问题
• 临时修复方法为将损坏文件数据复制到干净模板后覆盖原文件，需管理员手动操作，影响用户体验
• 补充说明：工作簿存在打开时初始化使用日志的逻辑，未设置on-save事件（SharePoint 2010中用户直接签入文件时on-save事件不会触发）

核心故障根因 #

该问题是SharePoint存储xlsm格式文件的共性问题，主要由两个原因导致：

1. 宏引用路径漂移
   SharePoint同步文件时会生成临时路径，宏的外部引用（包括隐藏的内置引用）会因为临时路径变更丢失指向，使用频率越高的文件同步操作越频繁，引用漂移概率越高，完全符合“部分团队报错频率更高”的特征。
2. VBA项目隐式损坏
   SharePoint的文件锁机制和后台自动版本合并逻辑，会破坏xlsm文件二进制结构中存储VBA项目的分区。现有打开时初始化日志逻辑会在文件打开瞬间写入内容，此时如果触发SharePoint后台自动同步，就会导致VBA项目损坏。

验证方法 #

打开任意报错文件，按Alt+F11进入VBA编辑器，点击顶部菜单栏「工具」-「引用」，查看列表中是否存在标记为「缺失」的引用项，即可快速确认是否为引用漂移问题。

修复方案 #

短期优化方案（无需重构现有逻辑，可快速落地） #

1. 在模板的Workbook_Open事件最前端添加强制引用校验代码，自动清理损坏的引用：

Private Sub Workbook_Open()
    Dim ref As Object
    On Error Resume Next
    For Each ref In ThisWorkbook.VBProject.References
        If ref.IsBroken Then
            ThisWorkbook.VBProject.References.Remove ref
        End If
    Next
    On Error GoTo 0
    ' 原有初始化日志逻辑放在此处
End Sub

2. 将现有修复工具封装为Excel COM加载项，批量部署到所有用户的Office客户端，给用户添加一键修复按钮，报错后用户可自行操作修复，无需等待管理员处理。

长期根治方案 #

1. 剥离xlsm文件中的宏代码：将现有VBA逻辑迁移到企业级VSTO插件或者Office Scripts中，文件本身仅存储数据，从根源避免VBA项目损坏问题。
2. 调整日志存储逻辑：将打开时的使用日志从工作簿本身迁移到内部共享库、SharePoint列表或者业务数据库中，打开文件时不再修改工作簿自身内容，避免同步冲突导致的文件损坏。

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