Excel Ribbon自定义按钮激活/失效报错（错误91）求助

错误91（对象或变量未定义）的核心原因是objRuban变量没有获取到有效的Ribbon对象实例，Ribbon的InvalidateControl方法必须依赖加载时保存的实例才能调用。以下是完整修正方案：

步骤1：修正VBA代码 #

首先需要在标准模块中声明全局Ribbon变量，并在Ribbon加载时保存实例：

' 声明全局Ribbon变量，必须放在标准模块顶部
Public objRuban As IRibbonUI

' Ribbon加载时的回调，用于保存实例
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set objRuban = ribbon
End Sub

' Ribbon调用此函数判断按钮是否启用
Sub Bouton1_GetEnabled(control As IRibbonControl, ByRef enabled)
    ' 根据A1单元格值设置按钮启用状态
    enabled = (ActiveSheet.Range("A1").Value = 1)
End Sub

' 手动触发按钮状态更新的过程
Sub Actualise_CTRL()
    ' 先检查实例是否初始化，避免报错
    If Not objRuban Is Nothing Then
        objRuban.InvalidateControl "Bouton1" ' 刷新指定按钮状态
    Else
        MsgBox "Ribbon实例未初始化，请重新打开文件", vbExclamation
    End If
End Sub

步骤2：修正Ribbon XML代码 #

确保XML中正确绑定onLoad和getEnabled回调：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="自定义标签">
                <group id="CustomGroup" label="自定义组">
                    <button id="Bouton1" label="测试按钮" size="normal" 
                            getEnabled="Bouton1_GetEnabled" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

关键注意事项 #

• 全局变量objRuban必须放在标准模块中，不能放在工作表或ThisWorkbook模块，否则作用域受限导致实例无法保存。
• 修改XML后，需关闭并重新打开Excel文件，确保Ribbon重新加载并触发onLoad回调。
• 若要实现A1值变化时自动更新按钮状态，可在对应工作表模块中添加事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Actualise_CTRL
    End If
End Sub

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