日常管理是菜单的第二个功能组，如何实现员工登录的时候，自动让第二个功能组“日常管理”为当前的活动功能组？
If RibbonTabs.Contains("管理管理") Or RibbonTabs.Contains("日常管理")Then '如果包含名为"设计"的功能区
If _UserRole = "学生" Then
RibbonTabs("主管管理").Visible = False
RibbonTabs("日常管理").Visible = False
Forms("游戏个人数据s").open
ElseIf _UserRole = "员工" Then
RibbonTabs("主管管理").Visible = False
RibbonTabs("日常管理").Visible = True
RibbonTabs("日常管理").selected = 1
Forms("学生名册").open
Else
RibbonTabs("主管管理").Visible = True
RibbonTabs("日常管理").Visible = True
RibbonTabs("龙源宝藏").Visible = True
Forms("学生名册").open
End If
加好友 
发短信
Post By：2015/11/16 15:27:00 [显示全部帖子]
