主题：[求助]

 加入代码 msgbox(user.Group) 看弹出什么

 那试试 msgbox(_UserGroup)

呃，那你没有设置分组，或者没有给分组_UserGroup赋值啊。

 

登陆窗口的代码发出来看看。

 要写在 Forms("用户登录").Open() 的后面。

Forms("用户登录").Open()

 

If _UserGroup <> "系统管理员" Then
    RibbonTabs("用户管理").Enabled = False
Else
    RibbonTabs("用户管理").Enabled = True
End If

加入代码

 

msgbox(username)

msgbox(newkw)

msgbox(datakw)

If _UserGroup = "销售部" Then
    e.Cancel = True
Else
    If _UserGroup <> "生产部"
        Select Case e.Col.Name
            Case "pz","pzrq"
                e.Cancel = True
        End Select
    End If
    If _UserGroup <> "综合部" Then
        Select Case e.Col.Name
            Case "zhb_lh","zhb_bom","jiean"
                e.Cancel = True
        End Select
    End If
End If

 Select Case e.Col.Name
    Case "zhb_lh","zhb_bom","jiean"
        If _UserGroup <> "综合部" Then
            e.cancel = True
        End If
    Case Else
        If _UserGroup = "综合部" Then
            e.cancel = True
        End If
End Select
Select Case e.Col.Name
    Case "pz","pzrq","zhb_lh","zhb_bom","jiean"
        If _UserGroup = " 技术品管部" Then
            e.cancel = True
        End If
    Case Else
End Select

自己灵活变通啊

 

Select Case e.Col.Name
    Case "zhb_lh","zhb_bom","jiean"
        If _UserGroup <> "综合部" Then
            e.cancel = True
        End If
    Case Else
        If _UserGroup = "综合部" Then
            e.cancel = True
        End If
End Select
Select Case e.Col.Name
    Case "pz","pzrq","zhb_lh","zhb_bom","jiean"

        If _UserGroup = " 技术品管部" Then
            e.cancel = True
        End If

    Case Eelse
End Select

If _UserGroup = " 销售部" Then
    e.cancel = True
End If