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


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

主题:[求助]菜单权限

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
[求助]菜单权限  发帖心情 Post By:2015/5/26 8:50:00 [只看该作者]

我根据帮助文件,在系统菜单_LoadUserSetting事件中加上了如下代码,希望隐藏数据表、管理项目、打印输出功能选项卡工具,并禁用日常工作_窗口功能组和杂项_工具、杂项_执行功能组。其中,红色代码是我加的。用“张海滨”登录后,所有代码都没用执行,而且在编写代码时,菜单设计器的帮助窗口中,也没有对f应的菜单名称提示。请教:这是Foxtable试用版禁用这个功能呢还是我的代码写法有错?
If User.Name = "张海滨" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Print").Visible = False
    RibbonTabs("Statistic").Groups("wind").Visible = False
    RibbonTabs("Other").Groups("Tools").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Print").Visible = True
    RibbonTabs("Statistic").Visible = True
    RibbonTabs("Statistic").Groups("Wind").Visible = True
    RibbonTabs("Other").Groups("Tools").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/5/26 8:54:00 [只看该作者]

你的用户名不是  张海滨吧. 具体请上例子

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/26 9:15:00 [只看该作者]

 加入msgbox看是否进入执行对应的代码。

 回到顶部