加一行代码,显示一下用户名看看:
Messagebox.show("用户名是:'" & User.Name & "'") 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
[此贴子已经被作者于2015/5/5 15:00:43编辑过]