以下代码放到AfterOpenProject事件中时,当以项目经理登录后“管理3”和“管理4”的菜单会闪现一下后才会消失,这个过程都看得很清楚,体验很不好,有什么办法不让失效的菜单闪现吗?
Select Case _UserGroup
Case "项目经理"
RibbonTabs("管理1").Visible = True
RibbonTabs("管理2").Visible = True
RibbonTabs("管理3").Visible = False
RibbonTabs("管理4").Visible = False
Case "总经理"
RibbonTabs("管理1").Visible = True
RibbonTabs("管理2").Visible = True
RibbonTabs("管理3").Visible = True
RibbonTabs("管理4").Visible = True
end select