主题：这个代码如何优化了

我利用的是菜单权限功能 需求：咨询.售后.网络.合作。登陆的时候，功能区的菜单都看不了。全部不显示 If User.Name = "咨询" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "网络" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "售后" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "合作" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False End If 这个代码应该如何优化了。

Select Case User.Name
    Case "咨询","网络","售后","合作"
        RibbonTabs("Common").Visible = False
        RibbonTabs("Table").Visible = False
        RibbonTabs("Project").Visible = False
        RibbonTabs("Print").Visible = False
        RibbonTabs("Other").Visible = False
End Select

谢谢。