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

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

 

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

 

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

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

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

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

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

 

我的登陆界面

 

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

 

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

 

 

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

 

选择流程后显示的菜单

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

 

 

在这里切换流程

 

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

 

 

 

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

 

嘿嘿谢谢鼓励，一定加油