为了保护项目,在帮助文件中"菜单与权限管理"的以下代码可以让不是开发者的登陆者看到“管理项目”,但一般用户登陆后无法使用“管理项目”下的“用户管理”来修改自己的密码,怎么才能做到呢?
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