主题：[求助]

此主题相关图片如下：qq截图20140513101053.jpg

如何在If User.Group = "综合管理部" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled =  False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled =  False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled =  True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled =  True
End If  上隐藏掉上如图的窗口事件，，急急。。。。。