主题：问一个问题，请看一下以下代码？

 下列代码只对主菜单有用，当更换用户后，菜单快速访问栏不改变，用代码如何解决更换用户后的效果，谢谢？

For Each rt As RibbonMenu.Tab In RibbonTabs

    rt.Visible = True

    rt.Enabled = True

    For Each rg As RibbonMenu.Group In rt.Groups

        rg.Visible = True

        rg.Enabled = True

        For Each itm As RibbonMenu.RibbonItem In rg.Items

            itm.Visible = True

            itm.Enabled = True

        Next

    Next

Next

For Each i As object In QAT.Items
    i.visible = False
Next

谢谢