1.找到了,我想设置成只允许 a 用户可见、可用,其他用户全部不可见不可用,应该怎么设置呢?---------
2>
我们增加一个用户“录入员”,如果该用户登录,隐藏“数据表”和“管理项目”两个功能区,并禁用杂项功能区的“执行SQL”和
“命令窗口”两个按钮。
第一步当然是增加一个名为“录入员”的用户,然后在菜单系统事件LoadUserSetting加入如下代码:
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
上面的代码怎么改为使用用户组控制,是 员工 组的用户就适用上面的代码,实现上面代码的效果? 谢谢谢谢
3> 还有就是使用了上面的代码,我还需要替换系统菜单吗? 再次感谢.
[此贴子已经被作者于2016/11/28 10:05:15编辑过]