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

经理权限 要让 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

请问如何解决这一问题？

你上面关于菜单的所有代码全部删除，只需在自定义登录窗口的确定按钮中加入一段：

RibbonTabs("功能区2")("功能组2")("标准按钮9").Enabled = (_usergroup <> "东区销售经理")
RibbonTabs("功能区2")("功能组2")("组合按钮2").Enabled = (_usergroup <> "东区销售经理")
RibbonTabs("功能区2")("功能组3")("标准按钮7").Enabled = Not (_usergroup Like "*销售部")
RibbonTabs("功能区2")("功能组3")("标准按钮8").Enabled = Not (_usergroup Like "*销售部")
RibbonTabs("功能区2")("功能组2").Enabled =  (_usergroup <> "东区市场部")
RibbonTabs("功能区2")("功能组3").Enabled = (_usergroup <> "东区市场部")

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

呵呵，给你个可视化菜单控制。这下随心所欲了。

用 B员工登陆看看 密码888

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

我的菜单是全部隐藏了的，在流程界面，点击不同的流程会进入不同的菜单

菜单的切换都要在流程界面，菜单栏 永远只显示一个“常用”菜单 和正在进行的“流程”

我的登陆界面

此主题相关图片如下：qq截图未命名.png

流程界面，菜单权限控制在流程界面，红色的项目代表当前用户有权限进入的，其他的不可用

此主题相关图片如下：qq截图未命名2.png

选择流程后显示的菜单

 
此主题相关图片如下：qq截图未命名3.png

在这里切换流程

此主题相关图片如下：qq截图未命名4.png

哈哈，不错不错，做完上来参赛。

嘿嘿谢谢鼓励，一定加油