Excel 2021 Ribbon上下文菜单GetEnabled报错求解决方案

核心错误：回调函数签名不匹配 #

RibbonX中，上下文菜单控件的getEnabled回调不能通过函数返回值传递状态，必须使用ByRef参数输出启用状态。原代码用返回Boolean的方式，导致Excel传递参数时不匹配，触发“参数数量错误”。

修正后的完整代码 #

1. RibbonX XML（无需修改） #

<customUI onLoad="OnLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui">
   <contextMenus>
      <contextMenu idMso="ContextMenuCell">
         <button id="btnGoToTopAssembly" 
                 label="Go To Top Assembly" 
                 onAction="GoToTopAssembly" 
                 getEnabled="IsNotTopAssemblySheet"
                 insertBeforeMso="Cut"/>
      </contextMenu>
   </contextMenus>
</customUI>

2. 修正后的VBA模块代码 #

Public MyRibbon As IRibbonUI

Sub OnLoad(ribbon As IRibbonUI)
    Set MyRibbon = ribbon
End Sub

' 修正getEnabled回调参数：新增ByRef enabled参数传递状态
Public Sub IsNotTopAssemblySheet(control As IRibbonControl, ByRef enabled As Boolean)
    On Error GoTo ErrorHandler
    ' 当前工作表为"Top Assembly"时禁用按钮，否则启用
    enabled = (Application.ActiveSheet.Name <> "Top Assembly")
    Exit Sub
ErrorHandler:
    MsgBox "Error " & Err.Number & ": " & Err.Description
    enabled = True ' 出错时默认启用按钮
End Sub

Sub GoToTopAssembly(control As IRibbonControl)
    MsgBox "Go To Top Assembly clicked!"
End Sub

3. 可选：自动刷新按钮状态（需放在ThisWorkbook模块） #

添加工作表切换事件，确保切换工作表时按钮状态自动更新：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Not MyRibbon Is Nothing Then
        MyRibbon.InvalidateControl "btnGoToTopAssembly"
    End If
End Sub

关键说明 #

• 回调函数必须改为Sub类型，通过ByRef enabled参数向Excel传递控件启用状态，这是RibbonX上下文菜单回调的强制要求。
• 保存文件时需选择.xlsm格式（启用宏的工作簿），并确保宏已启用。

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