主题：隐藏部分菜单怎么实现

If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = 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("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If

 

我在菜单系统事件LoadUserSetting加入上述代码。要实现某用户登录后，隐藏“数据表”和“管理项目”两个功能区，并禁用杂项功能区的“执行SQL”和 “命令窗口”两个按钮。可切换用户后不生效，怎么办？

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

点击浏览该文件:学院学生资料数据检索系统.foxdb

还在等待哪位客服提示。

这个是付费的开发功能，我不是想买个什么功能，我是想按系统帮助文件里说的实现功能，这该不是什么难事，只是我在哪个地方缺了什么设置，需要得到客服的提示。请客服提示。

我的问题还是没有答案啊

我知道怎么解决了。