如何在激活工作表时自动激活自定义Ribbon Tab（customTab）

要实现切换工作表时自动激活自定义Ribbon Tab，需要结合Ribbon XML配置和VBA事件代码完成，具体步骤如下：

1. 配置Ribbon XML加载事件 #

如果你的自定义Ribbon是通过XML创建的，需在XML根节点添加onLoad属性，用于保存后续切换标签所需的RibbonUI对象：

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RibbonOnLoad">
  <ribbon>
    <tabs>
      <!-- 你的自定义Tab，id为"customTab" -->
      <tab id="customTab" label="自定义标签">
        <!-- 自定义控件内容 -->
      </tab>
    </tabs>
  </ribbon>
</customUI>

2. 保存RibbonUI对象的VBA代码 #

新建一个标准模块（如Module1），添加以下代码，在Ribbon加载时保存其实例：

Public gRibbonUI As IRibbonUI

Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set gRibbonUI = ribbon
End Sub

3. 编写工作表激活事件 #

打开ThisWorkbook的代码窗口，添加SheetActivate事件，每次切换工作表时自动激活自定义Tab：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next ' 避免Ribbon未加载时触发错误
    If Not gRibbonUI Is Nothing Then
        gRibbonUI.ActivateTab "customTab"
    End If
    On Error GoTo 0
End Sub

特殊情况处理（内置工具创建的自定义Tab） #

如果你的自定义Ribbon是通过Excel内置「自定义功能区」工具创建的，无法使用IRibbonUI对象，可改用以下代码（需替换为自定义Tab的显示名称）：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    Application.CommandBars("Ribbon").Controls("自定义标签显示名称").Activate
    On Error GoTo 0
End Sub

注意事项 #

• 工作簿需保存为.xlsm格式（启用宏的工作簿），否则代码无法运行
• 首次打开工作簿需启用宏，否则Ribbon加载事件不会触发

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