- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]菜单权限的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108903)
-- 发布时间：2017/10/31 17:56:00
-- [求助]菜单权限的问题
If Functions.Execute("QuanXian","部门权限","生产部") = False Then
RibbonTabs("ProductionDept").Enabled = False
End If
以上的代码只能控制该菜单是否可用，但是他依然可以进入该菜单，看到里面，只是不能操作而已。
我想，如果他没有权限，则不允许他点开这个菜单，怎么操作？
-- 发布时间：2017/10/31 17:58:00
--
没权限时也需要可见，不隐藏。
-- 发布时间：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
-- 发布时间：2017/10/31 19:52:00
-- 回复：（有点甜）主菜单，selectTab事件 If ...
老师，你这招效果不太好啊
如果他没有权限就强制跳转到另外一个菜单去，还是能看到该功能区里面的东西。。。
-- 发布时间：2017/10/31 19:55:00
--
可以了，是我粗心把mess放错位置了。。。。
谢谢老师
-- 发布时间：2017/10/31 19:56:00
--
直接做个自定义菜单的设计和授权不就简单了，你这样一个一个写代码用户人多了容易错吧。
-- 发布时间：2017/10/31 21:55:00
-- 回复：（cd_tdh）直接做个自定义菜单的设计和授权不就...
能不能指点下？
-- 发布时间：2017/10/31 22:06:00
--
可以参考这种，根据授权动态生成菜单