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

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

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

 

对了 我菜单有自动计算菜单组件 也勾选了相应的单元数 累计值 平均值 右下角为什么没有显示

是数值列 重量 体积 数量 都是双精度小数

 

我这么描述我要增加管理员一样的权限的用户是为了各部门经理属于管理组 能增加自己部门的用户 我把

您给的代码加进去了 还是不行

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class185" Then
        If user.group = "管理" Then
            frm.controls("btnAdd").Enabled = True
            frm.controls("btnDelete").Enabled = True
            frm.controls("Button2").Enabled = True
            frm.controls("btnUserTable").Enabled = True
            frm.controls("btnRole").Enabled = True
            frm.controls("btnExtProperty").Enabled = True
            frm.controls("btnDefault").Enabled = True
            frm.controls("lstUsers").Enabled = True
            frm.controls("btnGroup").Enabled = True
            frm.controls("btnEdi").Enabled = True
           
           
        End If
    End If
End If

用户问题解决 数值列显示统计就是不行

打印能否像excel一样只打印选中区域(打印选定区域)