If User.Name = "录入员" Then
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Groups("Project").Visible = False
RibbonTabs("Project").Groups("Design").Visible = False
RibbonTabs("Project").Groups("Timers").Visible = False
RibbonTabs("Project").Groups("Watcher").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").Groups("Project").Visible = true RibbonTabs("Project").Groups("Design").Visible = true
RibbonTabs("Project").Groups("Timers").Visible = true
RibbonTabs("Project").Groups("Watcher").Visible = true
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If