根据权限显示菜单

时　间:2008-04-23 13:31:27
作　者:轻风   ID：82  城市：福清
摘　要:比如有“审核员”和“录入员”两种权限，在登录时判断该显示哪些菜单项目
正　文:

比如有“审核员”和“录入员”两种权限，在登录时判断该显示哪些菜单项目：

'审核员登录时：
CommandBars("录入菜单").Enabled = False  'Enabled也可为Visible，下同
CommandBars("审核菜单").Enabled = True
'录入员登录时：
CommandBars("录入菜单").Enabled = True
CommandBars("审核菜单").Enabled = False

以上是设置某菜单栏的可见性，也可以对菜单栏中某一菜单进行控制，如：

CommandBars("录入菜单").Controls(1).Visible = False  '使“录入菜单”中第一项菜单不可见；

CommandBars("录入菜单").Controls(1).Enabled = False  '使“录入菜单”中第一项菜单失效（变灰色）。