如何用Excel VBA移除受密码保护的缺失引用？

• 公司内部分人员拥有某.tlb库文件，部分人员没有，该库对应的引用导致无文件的用户打开文件时出现编译错误，无法使用其他宏
• 手动移除该引用需要验证VBProject密码，尝试用VBA代码自动移除但始终报错
• 其他用户打开文件时的错误提示：

  编译错误：隐藏模块ThisWorkbook中出错。此错误通常发生在代码与应用程序的版本、平台或架构不兼容时。

尝试的代码 #

Sub RemoveBrokenReferences()
Dim i As Integer
Dim iCount As Integer
Dim theRef As Object


iCount = ThisWorkbook.VBProject.References.count
For i = iCount To 1 Step -1
Set theRef = ThisWorkbook.VBProject.References(i)
    If theRef.IsBroken Then
        ThisWorkbook.VBProject.References.Remove theRef
    End If
Next
End Sub

1. 精准定位目标引用的修正代码 #

代码报错大概率是因为VBProject受密码保护无法访问，或IsBroken判断失效。可通过引用的GUID或名称精准定位目标.tlb，同时添加错误处理：

Sub RemoveTLBReference()
    Dim ref As Object
    ' 替换为目标.tlb的GUID（手动查看引用属性可获取）
    Const TargetGUID As String = "{XXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}"
    ' 也可替换为引用名称，比如：Const TargetName As String = "MyCustomTLB"

    On Error Resume Next
    For Each ref In ThisWorkbook.VBProject.References
        ' 方式1：通过GUID匹配
        If ref.GUID = TargetGUID Then
            ThisWorkbook.VBProject.References.Remove ref
            Exit For
        End If
        ' 方式2：通过名称匹配（注释掉上面，启用下面）
        ' If ref.Name = TargetName Then
        '     ThisWorkbook.VBProject.References.Remove ref
        '     Exit For
        ' End If
    Next ref
    On Error GoTo 0
End Sub

注意：运行前需确保已解除VBProject密码保护，或拥有访问权限。

2. 改用后期绑定彻底规避引用问题 #

如果无法通过代码移除引用，最稳妥的方式是将依赖该.tlb的代码改为后期绑定，无需添加库引用：

• 前期绑定示例（需要引用）：

  Dim obj As CustomTLB.MyObject
  Set obj = New CustomTLB.MyObject
  

• 后期绑定示例（无需引用）：

  Dim obj As Object
  Set obj = CreateObject("CustomTLB.MyObject")
  

这样所有用户打开文件时都不会因缺少.tlb出现编译错误。

3. 手动移除后分发文件 #

若代码方式受限于权限，可直接手动操作：

1. 使用有权限的账号打开文件，输入VBProject密码
2. 移除目标.tlb的引用并保存文件
3. 将修改后的文件分发给所有用户

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