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”和 “命令窗口”两个按钮。可切换用户后不生效，怎么办？
[此贴子已经被作者于2014-2-25 15:05:23编辑过]
加好友 
发短信
Post By：2014/2/25 13:19:00 [只看该作者]
Post By：2014/2/25 13:47:00 [只看该作者]
编好一个系统，当交给用户时“数据表”、“管理项目”等这些属于开发类的菜单，是不让用户改动的，但我隐藏不下去。我按帮助文件给出的代码做了，还是没有实现隐藏。只是实现了用户不可用那些功能了。我想，既然不让其用，就不要显示在那里。请提示。
