标题：求助菜单中的代码

  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”等功能区中的按钮，我只想得到“功能区一”和“功能区二”中自己设计的按钮，如何写代码？