比如有“审核员”和“录入员”两种权限,在登录时判断该显示哪些菜单项目:
'审核员登录时:
CommandBars("录入菜单").Enabled = False 'Enabled也可为Visible,下同
CommandBars("审核菜单").Enabled = True
'录入员登录时:
CommandBars("录入菜单").Enabled = True
CommandBars("审核菜单").Enabled = False
以上是设置某菜单栏的可见性,也可以对菜单栏中某一菜单进行控制,如:
CommandBars("录入菜单").Controls(1).Visible = False '使“录入菜单”中第一项菜单不可见;
CommandBars("录入菜单").Controls(1).Enabled = False '使“录入菜单”中第一项菜单失效(变灰色)。