RibbonTabs("Table").Groups("Table").Visible = True'菜单项一
RibbonTabs("Project").Groups("Project").Visible = True'菜单项二
If User.Name = "张三" Then
RibbonTabs("Table").Groups("Table").Visible = False '菜单项一
ElseIf User.Name = "管理员" Then
RibbonTabs("Project").Groups("Project").Visible = False '菜单项二
End If