想要隐藏一些菜单,防止误操作,于是参照帮助文件里代码:
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
在主菜单里设置了一下,把“录入员”改成了实际使用人员的名字,结果现在菜单都不见了,用开发者登录进去也不见菜单,无法进行下一步的操作了。
该怎么解决??? 急,求大侠出手,谢谢!