主题：如何用代码显示所有菜单功能组件（如按钮等）的集合

如何用代码显示所有菜单功能组件（如按钮等）的集合？

帮助中有：

 

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Table").Items
    itm.Enabled = False
Next

如果需要包含Table功能区中名为Table的功能组以外所有的组件呢

 

禁止除Table功能区之外的所有其他功能区

 

Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
    If itm.Name <> "Table" Then
        itm.Enabled = False
    End If
Next

我提问错了，应该是

For Each itm In 所有功能区、功能组中所有按钮
    itm.Enabled = False
Next

Dim tab As RibbonMenu.Tab
Dim grp As RibbonMenu.Group
Dim itm As RibbonMenu.RibbonItem
For Each tab  In RibbonTabs
    For Each grp In tab.groups
        For Each itm In grp.items

        Next
    Next
Next