如何隐藏快速访问工具栏中的按钮？附自定义Ribbon代码咨询

我来帮你梳理两种实用的隐藏方法，分静态配置和动态控制两种场景：

方法1：通过Ribbon XML静态隐藏 #

如果希望Ribbon加载时就固定隐藏某些按钮，直接在自定义Ribbon的XML里添加<qat>节点，用<remove>标签指定目标按钮即可：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <qat>
      <!-- 隐藏内置的"保存"按钮 -->
      <remove idMso="FileSave" />
      <!-- 隐藏内置的"撤销"按钮 -->
      <remove idMso="Undo" />
      <!-- 隐藏自定义的QAT按钮（用自己设置的id） -->
      <remove id="customQATButton" />
    </qat>
  </ribbon>
</customUI>

提示：idMso是Office内置控件的唯一标识，你可以用Office Custom UI Editor这类工具查询所有内置控件的idMso。

方法2：通过VBA动态控制可见性 #

如果需要在程序运行时根据条件切换按钮显示/隐藏，结合Ribbon回调函数就能实现：
先在XML里给按钮添加getVisible属性：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <ribbon>
    <qat>
      <button id="myCustomQATBtn" label="我的按钮" onAction="Btn_Click" getVisible="GetQATBtnVisible" />
    </qat>
  </ribbon>
</customUI>

然后在VBA中实现回调逻辑：

Dim ribbonUI As IRibbonUI

' Ribbon加载时初始化对象
Sub Ribbon_Load(ribbon As IRibbonUI)
  Set ribbonUI = ribbon
End Sub

' 控制按钮可见性的回调
Sub GetQATBtnVisible(control As IRibbonControl, ByRef visible)
  ' 这里可以写自定义判断逻辑，比如根据当前文档状态决定是否隐藏
  visible = False ' 设置为False就会隐藏按钮
End Sub

' 动态更新按钮状态的方法
Sub UpdateQATButton()
  ribbonUI.InvalidateControl "myCustomQATBtn" ' 刷新指定按钮的状态
End Sub

我先帮你补全并优化你给出的Backstage XML代码，同时附上对应的VBA回调示例，方便你参考：

完整的Backstage XML示例 #

<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <backstage>
    <!-- 自定义Backstage标签，插入到"信息"标签之前 -->
    <tab id="CustomTab" insertBeforeMso="TabInfo" title="自定义标签" label="自定义标签">
      <firstColumn>
        <!-- 第一个组：操作按钮 -->
        <group id="openGroup" label="操作">
          <topItems>
            <button id="btnOpen" label="搜索表单" onAction="OpenForm" />
            <button id="btnSave" label="保存数据" onAction="SaveForm" />
            <!-- 补全你截断的按钮，新增一个退出按钮示例 -->
            <button id="btnExit" label="退出程序" onAction="ExitApplication" />
          </topItems>
        </group>
        <!-- 第二个组：设置选项 -->
        <group id="settingsGroup" label="设置">
          <topItems>
            <checkBox id="chkAutoSave" label="自动保存" getPressed="GetAutoSaveStatus" onAction="ToggleAutoSave" />
          </topItems>
        </group>
      </firstColumn>
    </tab>
    <!-- 可选：隐藏内置的"信息"标签 -->
    <tab idMso="TabInfo" visible="false" />
  </backstage>
</customUI>

对应的VBA回调函数示例 #

Dim ribbonUI As IRibbonUI

' Ribbon加载时初始化
Sub Ribbon_Load(ribbon As IRibbonUI)
  Set ribbonUI = ribbon
End Sub

' "搜索表单"按钮的点击事件
Sub OpenForm(control As IRibbonControl)
  ' 替换成你打开表单的实际逻辑
  MsgBox "正在打开搜索表单..."
  ' UserForm1.Show vbModal
End Sub

' "保存数据"按钮的点击事件
Sub SaveForm(control As IRibbonControl)
  On Error Resume Next
  ActiveWorkbook.Save
  If Err.Number = 0 Then
    MsgBox "数据保存成功！"
  Else
    MsgBox "保存失败：" & Err.Description
  End If
  On Error GoTo 0
End Sub

' "退出程序"按钮的点击事件
Sub ExitApplication(control As IRibbonControl)
  If MsgBox("确定要退出吗？未保存的数据会丢失。", vbYesNo + vbExclamation) = vbYes Then
    Application.Quit
  End If
End Sub

' 获取"自动保存"复选框的状态
Sub GetAutoSaveStatus(control As IRibbonControl, ByRef pressed)
  ' 可以从配置中读取状态，比如工作表单元格或注册表
  pressed = True ' 默认勾选
End Sub

' 切换"自动保存"状态的事件
Sub ToggleAutoSave(control As IRibbonControl, pressed As Boolean)
  ' 保存状态到配置，比如写入工作表单元格
  ' ThisWorkbook.Sheets("Settings").Range("A1").Value = pressed
  MsgBox "自动保存已" & IIf(pressed, "开启", "关闭")
End Sub

关键注意事项 #

1. XML格式正确性：务必确保标签闭合、属性引号正确，否则Ribbon会加载失败。如果你的原始代码最后一个<button>标签没写完，一定要补全闭合。
2. 命名空间匹配：http://schemas.microsoft.com/office/2009/07/customui适用于Office 2010及以后版本，Office 2007需要换成http://schemas.microsoft.com/office/2006/01/customui。
3. 回调参数匹配：所有Ribbon回调函数的参数必须严格对应，比如onAction对应的Sub必须接受control As IRibbonControl，getPressed必须接受control和ByRef pressed参数。
4. 动态更新：如果需要在运行时更新控件状态（比如改变按钮文字、复选框状态），调用ribbonUI.Invalidate()刷新所有控件，或ribbonUI.InvalidateControl("控件ID")刷新指定控件。

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