Foxtable(狐表)用户栏目专家坐堂 → [求助]菜单权限的问题


  共有1931人关注过本帖树形打印复制链接

主题:[求助]菜单权限的问题

帅哥哟,离线,有人找我吗?
xy0739
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:723 威望:0 精华:0 注册:2017/10/9 17:21:00
[求助]菜单权限的问题  发帖心情 Post By:2017/10/31 17:56:00 [只看该作者]

If Functions.Execute("QuanXian","部门权限","生产部") = False Then
    RibbonTabs("ProductionDept").Enabled = False
End If

以上的代码只能控制该菜单是否可用,但是他依然可以进入该菜单,看到里面,只是不能操作而已。
我想,如果他没有权限,则不允许他点开这个菜单,怎么操作?

 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:723 威望:0 精华:0 注册:2017/10/9 17:21:00
  发帖心情 Post By:2017/10/31 17:58:00 [只看该作者]

没权限时也需要可见,不隐藏。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/31 19:13:00 [只看该作者]

主菜单,selectTab事件

 

If e.Sender.name = "ProductionDept" then

    msgbox(123)

    If Functions.Execute("QuanXian","部门权限","生产部") = False Then

        RibbonTabs("Other").Selected = True

    End If

End if


 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:723 威望:0 精华:0 注册:2017/10/9 17:21:00
回复:(有点甜)主菜单,selectTab事件 If ...  发帖心情 Post By:2017/10/31 19:52:00 [只看该作者]

老师,你这招效果不太好啊图片点击可在新窗口打开查看

如果他没有权限就强制跳转到另外一个菜单去,还是能看到该功能区里面的东西。。。

 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:723 威望:0 精华:0 注册:2017/10/9 17:21:00
  发帖心情 Post By:2017/10/31 19:55:00 [只看该作者]

可以了,是我粗心把mess放错位置了。。。。


谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21305 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/10/31 19:56:00 [只看该作者]

直接做个自定义菜单的设计和授权不就简单了,你这样一个一个写代码用户人多了容易错吧。

 回到顶部
帅哥哟,离线,有人找我吗?
xy0739
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:93 积分:723 威望:0 精华:0 注册:2017/10/9 17:21:00
回复:(cd_tdh)直接做个自定义菜单的设计和授权不就...  发帖心情 Post By:2017/10/31 21:55:00 [只看该作者]

图片点击可在新窗口打开查看 能不能指点下?

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/31 22:06:00 [只看该作者]

可以参考这种,根据授权动态生成菜单


 回到顶部