如何用VBA锁定/解锁Word快速访问工具栏（QAT）按钮

核心逻辑 #

QAT中的按钮属于Office命令栏对象，无法通过ActiveDocument直接访问，必须通过CommandBars集合定位。关键是通过宏名称或按钮显示文本匹配目标按钮，再修改其启用状态。

实现步骤 #

1. 获取QAT命令栏对象 #

Word的快速访问工具栏对应的命令栏固定名称为"Quick Access Toolbar"，先获取该对象：

Dim qatBar As CommandBar
Set qatBar = Application.CommandBars("Quick Access Toolbar")

2. 初始锁定第二个按钮 #

在文档打开或初始化代码中，遍历QAT控件找到目标按钮并禁用（灰显）：

• 推荐：通过宏名称匹配（避免显示文本重复导致误判）
  假设第二个按钮关联的宏名为Macro2：

Dim qatBtn As CommandBarButton
For Each qatBtn In qatBar.Controls
    ' 匹配宏的完整名称，若宏在指定模块中需写全，如"Module1.Macro2"
    If qatBtn.OnAction = "Macro2" Then
        qatBtn.Enabled = False ' 灰显禁用
        Exit For
    End If
Next

• 备选：通过按钮显示文本匹配
  若记得按钮的显示文字，可替换判断条件：

If qatBtn.Caption = "第二个宏按钮" Then ' 替换为你的按钮实际显示文本
    qatBtn.Enabled = False
    Exit For
End If

3. 第一个宏执行成功后解锁第二个按钮 #

在第一个宏（如Macro1）的末尾添加启用代码：

Sub Macro1()
    ' 这里编写第一个宏的业务逻辑
    ' ...
    
    ' 业务执行完成后启用第二个按钮
    Dim qatBar As CommandBar
    Dim qatBtn As CommandBarButton
    Set qatBar = Application.CommandBars("Quick Access Toolbar")
    
    For Each qatBtn In qatBar.Controls
        If qatBtn.OnAction = "Macro2" Then
            qatBtn.Enabled = True
            Exit For
        End If
    Next
End Sub

注意事项 #

• 宏名称需完全匹配，若宏存储在特定模块中，OnAction的值要包含模块名（如"Module1.Macro2"）
• Enabled = False对应灰显锁定状态，Enabled = True恢复可用
• 若QAT存在多个显示文本相同的按钮，优先用宏名称匹配更准确

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