锁定Word VBA项目后，如何启用所需引用或保留引用菜单权限？

嘿，这个场景我太熟悉了！之前帮客户部署VBA工具时也碰到过类似的麻烦——项目锁了改不了引用，换台电脑就得手动折腾，用户体验特别差。给你两个实用的解决方案，按需选择：

最稳妥的方式是放弃早期绑定，改用后期绑定，这样完全不需要依赖任何引用库，不管用户电脑有没有装对应组件，代码都能跑。

举个例子，你之前用MS Scripting Runtime的Dictionary对象，早期绑定需要先添加引用，代码是这样的：

' 早期绑定（需要引用MS Scripting Runtime）
Dim dict As Dictionary
Set dict = New Dictionary

改成后期绑定后，直接用CreateObject创建对象，连引用都不用加：

' 后期绑定（无需任何引用）
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")

同理，其他Office组件也可以这么处理——比如要调用Excel对象，跨应用场景下用CreateObject("Excel.Application")代替早期绑定的New Excel.Application。这种方法零配置，是跨电脑部署的首选。

如果你非要保留早期绑定（比如想享受代码提示），也可以用代码自动添加引用。每个引用库都有唯一的GUID，你可以通过代码检查并添加：

Sub AddRequiredReferences()
    Dim ref As Reference
    Dim isAdded As Boolean
    
    ' 检查MS Scripting Runtime是否已存在
    For Each ref In ThisWorkbook.VBProject.References
        If ref.GUID = "{420B2830-E718-11CF-893D-00A0C9054228}" Then
            isAdded = True
            Exit For
        End If
    Next ref
    
    ' 未添加则自动引用（版本号可根据实际调整）
    If Not isAdded Then
        ThisWorkbook.VBProject.References.AddFromGuid _
            GUID:="{420B2830-E718-11CF-893D-00A0C9054228}", _
            Major:=5, Minor:=0
    End If
    
    ' 可重复上述逻辑添加其他引用，比如Office Object Library
    ' Office 16.0的GUID是{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
End Sub

⚠️ 注意：这个方法需要用户的Excel开启了信任对VBA项目对象模型的访问（在选项→信任中心→信任中心设置→宏设置里开启），否则会报错。而且不同Office版本的GUID可能略有差异，需要提前确认。

如果必须让用户能修改引用，同时又要防止代码被编辑，其实可以这么做：

• 把核心业务代码放到一个单独的模块里，设置项目保护为**“允许查看但禁止编辑”**（右键项目→VBAProject属性→保护→勾选“锁定项目以进行查看”，设置密码）。
• 然后创建一个未加密的“配置模块”，里面只放处理引用的代码，或者给用户留一个入口，提示他们如果遇到引用错误，如何临时解锁项目修改引用（当然这需要你把密码告诉信任的用户，或者用弱密码？不太推荐）。

不过说实话，这种方案有点鸡肋——解锁项目后用户还是能编辑代码，不如直接用后期绑定彻底规避引用问题来得省心。

总结一下：优先选后期绑定，零配置跨电脑；非要早期绑定就用GUID自动添加引用；代码保护的话，锁定项目+后期绑定是最优组合，完全不用用户碰引用设置。

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