主题：[求助]

还是不行啊  这样的话技术品管部能编辑"pz","pzrq"  而本来都不能编辑的销售部都能编辑了

自己灵活变通啊

 

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