Excel Ribbon：工作表受保护时禁用所有自定义选项卡

要让自定义Ribbon选项卡（及内部控件）随工作表保护状态自动灰化禁用，核心是利用Ribbon的getEnabled回调函数，结合工作表状态变化事件触发Ribbon刷新，以下是完整实现方案：

1. 自定义Ribbon的XML配置 #

给两个自定义选项卡添加getEnabled回调，这样整个选项卡的所有控件都会受该回调控制：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" 
 onLoad="LoadRibbon">   
  <ribbon>  
    <tabs>  
      <tab id="ToolsV1.0.0" label="Tools" insertAfterMso="Developer" 
           getEnabled="Tab_GetEnabled">   
       <!-- 你的组、内置控件及宏按钮代码 -->
      </tab>
      <tab id="MacrosV4.0.0" label="Macros" insertAfterMso="ToolsV1.0.0"
           getEnabled="Tab_GetEnabled">
       <!-- 你的宏按钮代码 -->      
      </tab>               
    </tabs> 
  </ribbon> 
</customUI> 

说明：通过getEnabled="Tab_GetEnabled"指定回调函数，Ribbon会调用该函数判断选项卡是否可用。

2. 标准模块代码 #

实现Ribbon初始化和核心回调逻辑：

Option Explicit
Public RibUI As IRibbonUI

' Ribbon加载时保存全局对象
Sub LoadRibbon(Ribbon As IRibbonUI)
    Set RibUI = Ribbon
    ' 初始化时刷新一次Ribbon状态
    RibUI.Invalidate
End Sub

' 控制选项卡启用状态的回调函数
Sub Tab_GetEnabled(control As IRibbonControl, ByRef enabled)
    ' 逻辑：工作表受保护时禁用选项卡，否则启用
    enabled = Not ActiveSheet.ProtectContents
End Sub

说明：

• LoadRibbon：在Ribbon加载时保存全局Ribbon对象，方便后续触发刷新；Invalidate会强制刷新所有控件状态。
• Tab_GetEnabled：通过ActiveSheet.ProtectContents判断当前工作表是否受保护，返回相反值控制选项卡启用状态。

3. ThisWorkbook模块代码 #

监听工作表状态变化，及时刷新Ribbon：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 切换工作表时刷新Ribbon，适配新工作表的保护状态
    If Not RibUI Is Nothing Then RibUI.Invalidate
End Sub

Private Sub Workbook_SheetProtectionChange(ByVal Sh As Object, ByVal Protect As Boolean)
    ' 手动保护/取消保护工作表时，立即刷新Ribbon状态
    If Not RibUI Is Nothing Then RibUI.Invalidate
End Sub

说明：

• Workbook_SheetActivate：切换工作表时触发，确保Ribbon状态与当前活动工作表匹配。
• Workbook_SheetProtectionChange：用户手动修改工作表保护状态时触发，实时更新Ribbon。

额外提示 #

• 如果只需禁用选项卡内的部分按钮，而非整个选项卡，只需给对应按钮单独添加getEnabled="Tab_GetEnabled"即可。
• 确保RibUI是全局变量，否则ThisWorkbook模块无法访问并刷新Ribbon。

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