在自定义菜单中,如何设置权限,即当具有管理员权限的用户登陆时可用,其它用户不可用?

chenlugen

请教各位大侠,在自定义菜单中,如何设置权限,即只有当具有管理员权限的用户登陆时可用,其它性质用户登陆时不可用???????

咱家是猫

在程序启动过程中 或 在主窗体打开事件中 执行类似如下代码...
CommandBars("您的菜单名").Controls("文件(&F)").Controls("系统设置(&E)...").Enabled = (登录者权限级别变量="管理员")

chenlugen

好像不行啊,我登陆窗口只是有用户名和密码两项,"用户性质"(分管理员和操作员)只在用户密码表中,登陆后进入如图的界面,在这个界面中,我想实现只有当具有管理员权限的用户 登陆后我自定义菜单中的某些才能用??????

chenlugen

file:///C:/Documents%20and%20Settings/Administrator/桌面

chenlugen

if....... then

Application.CommandBars("OptionInterpose").Controls("用户设置(&U)").Enabled = True

else

Application.CommandBars("OptionInterpose").Controls("用户设置(&U)").Enabled = False

end if