If user.name = e.Row("录入员") OrElse User.Name = "管理员" OrElse User.Name = "开发者" Then ElseIf 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 Else e.cancel = True End If End If