主题：怎样增加一个用户拥有管理员一样的权限

我想增加几个用户拥有管理员一样的权限 现代码这样写 也只能修改密码

ElseIf User.Group = "管理" Then
    ' RibbonTabs("Table").Visible = True
    ' RibbonTabs("Project").Visible = True
    'RibbonTabs("部门工作").Groups("调度部").Visible= False
    ' RibbonTabs("部门工作").Groups("调度部").Visible = False
    RibbonTabs("日常工作").Groups("快速统计").Visible= False
    RibbonTabs("日常工作").Groups("窗口").Visible = False
    RibbonTabs("数据表").Groups("表相关").Visible= False
    RibbonTabs("数据表").Groups("列相关").Visible = False
    RibbonTabs("用户").Groups("用户").Items("用户管理").Enabled = True