您好! 我在表格增加了录入员列,当登陆名不是录入员,管理员、开发者 不能编辑行,写入了如下代码但是没效果。
If user.name = e.Row("录入员") OrElse User.Name = "管理员" OrElse User.Name = "开发者" Then
Else
If user.name = "采购部" Then
If e.Col.name = "供应商" OrElse e.Col.name = "采购反馈" Then
Else
e.cancel = True
End If
ElseIf user.name = "库管员" Then
If e.Col.name = "到货数量" OrElse e.Col.name = "库管员" OrElse e.Col.name = "出库" OrElse e.Col.name = "到货日期" OrElse e.Col.name = "货位" Then
Else
e.cancel = True
End If
End If
End If