If User.Name = "录入员" Then
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = False
RibbonTabs("Other").Visible = False
RibbonTabs("imexport").Groups("OuterData").visible=false
ElseIf User.Name="管理员" then
RibbonTabs("Other").Visible = False
RibbonTabs("imexport").Groups("OuterData").visible=false
RibbonTabs("Project").Groups("Project").items("Property").Visible = False
Else
RibbonTabs("Table").Visible = True
RibbonTabs("Project").Visible = True
RibbonTabs("Other").Visible =True
RibbonTabs("imexport").Groups("OuterData").visible=true
End If