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