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

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

Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
    If itm.Name <> "Table" Then
        itm.Enabled = False
    End If
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