主题：[求助]关于切换用户后的 按权限显示菜单的问题！

我按照帮助里 做了个自定义用户登录！

经理权限 要让 a，b 2个菜单不可用

普通员工  要让 c，d 2个菜单不可用

之前出现了这个问题  先经理登录后  a，b 2菜单不可用了；然后切换用户后 普通员工登录后  a，b，c，d 都不可用了

然后我在 切换用户 窗口里 确定按钮里 设置了个先展开所有菜单  然后按照权限隐藏的代码 结果貌似没用  请教下。。

展开菜单的代码 是

Dim tab As RibbonMenu.Tab
Dim grp As RibbonMenu.Group
Dim itm As RibbonMenu.RibbonItem
    For Each tab  In RibbonTabs
        For Each grp In tab.groups
            For Each itm In grp.items
                itm.Enabled = true

            Next
        Next
    Next

切换用户窗口 确定的部分代码如下：

Dim tab As RibbonMenu.Tab
Dim grp As RibbonMenu.Group
Dim itm As RibbonMenu.RibbonItem
If _usergroup = "东区销售经理"
    For Each tab  In RibbonTabs
        For Each grp In tab.groups
            For Each itm In grp.items
                itm.Enabled = False
            Next
        Next
    Next
    RibbonTabs("功能区2")("功能组2")("标准按钮9").Enabled = False
    RibbonTabs("功能区2")("功能组2")("组合按钮2").Enabled = False
    Forms("总览").close
    Forms("销售顾问总览").close
    DataTables("销售意向客户进度管制").LoadFilter = "区域区分 = '东区销售部'"
    DataTables("销售意向客户进度管制").Load()
    Tables("销售意向客户进度管制").openview("销售意向客户进度管制_东区")
    Tables("销售意向客户进度管制.意向客户历史回访情况").openview("意向客户历史回访情况")
    MainTable = Tables("销售意向客户进度管制")
    Forms("总览").open
ElseIf _usergroup Like "*销售部"
    For Each tab  In RibbonTabs
        For Each grp In tab.groups
            For Each itm In grp.items
                itm.Enabled = False
            Next
        Next
    Next
    RibbonTabs("功能区2")("功能组3")("标准按钮7").Enabled = False
    RibbonTabs("功能区2")("功能组3")("标准按钮8").Enabled = False
    Forms("总览").close
    Forms("销售顾问总览").close
    DataTables("销售意向客户进度管制").LoadFilter = "销售顾问 = '" & _UserName & "'"
    DataTables("销售意向客户进度管制").Load()
    Tables("销售意向客户进度管制").openview("销售意向客户进度管制_东区")
    Tables("销售意向客户进度管制.意向客户历史回访情况").openview("意向客户历史回访情况")
    MainTable = Tables("销售意向客户进度管制")
    Forms("销售顾问总览").open
    Forms("销售顾问总览").Controls("PictureBox6").enabled = False
ElseIf _usergroup = "东区市场部"
    For Each tab  In RibbonTabs
        For Each grp In tab.groups
            For Each itm In grp.items
                itm.Enabled = False
            Next
        Next
    Next
    RibbonTabs("功能区2")("功能组2").Enabled = False
    RibbonTabs("功能区2")("功能组3").Enabled = False
    Qat().Enabled = False
    Forms("总览").close
    Forms("销售顾问总览").close
    DataTables("销售意向客户进度管制").LoadFilter = ""
    DataTables("销售意向客户进度管制").Load()
    Tables("销售意向客户进度管制").openview("销售意向客户进度管制_东区市场部")
    Tables("销售意向客户进度管制.意向客户历史回访情况").openview("意向客户历史回访情况")
    MainTable = Tables("销售意向客户进度管制")
    Forms("总览").open
    Forms("总览").Controls("PictureBox6").enabled = False
End If

请问如何解决这一问题？

又学了一招  厉害~~~~~~~~~