Dim s As String

    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

                s = s & "|" & itm.Name

            Next

        Next

    Next

    Tables("授权表").Cols("按钮名").Combolist = s.Trim("|")

我设计的菜单中包含狐表的功能区，但全部把可见属性改为FALSE，自己设计的菜单有“功能区一”和“功能区二”，以上代码得到的“按钮名”不仅包括了“功能区一”和“功能区二”中的按钮，也包括了系统菜单自带的“Common”等功能区中的按钮，我只想得到“功能区一”和“功能区二”中自己设计的按钮，如何写代码？