主题：多角色设定，菜单权限的问题

If User.roles = "区域主管" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

If User.roles = "个案拆分" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

If User.roles = "日常事务" Then
    RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End If

 

 

以上是我设置的权限代码，但是我想通过CASE来设置，这样会比较便捷一点，请老师指点一点，如何弄？？

老师，请问以下代码有什么问题，为什么没有实现，用户查看不同菜单的权限；

 

Select Case User.roles
Case "日常事务"
    RibbonTabs("xiaoshoumokuai").Visible = False
    RibbonTabs("zhuanmaidianmokuai").Visible = False
    RibbonTabs("shujuguanli").Visible = False
    RibbonTabs("xiaoshoudacheng").Visible = False
Case "个案拆分"
    RibbonTabs("xiaoshoumokuai").Visible = False
    RibbonTabs("zhuanmaidianmokuai").Visible = False
    RibbonTabs("shujuguanli").Visible = False
    RibbonTabs("xiaoshoudacheng").Visible = False
End Select

Select Case User.roles
     Case "区域主管"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     Case "个案拆分"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
     Case "日常事务"
            RibbonTabs("gongzuoxiangmu").Groups("cpguanli").Visible = False
End Select

If User.roles = "统计员" Then
    RibbonTabs("shujuguanli").Visible = True
Else
    RibbonTabs("shujuguanli").Visible = False
End If

谢谢各位，我已经 会编写了~~只是开始思路未清晰，谢谢大家~~