老师，我想非以下两个组别人员不能编辑所有列，并且以下两个组别的人员在下面没有出现的列不能编辑，现在以下代码生产部文员能编辑整个表的列，代码写在：prepareedit事件中的
If "," & _UserGroup & "," Like "*,管理员,*" OrElse "," & _UserGroup & "," Like "*,生产部文员,*" Then
If "," & _UserGroup & "," Like "*,管理员,*" Then lst.AddRange({"毛坯编码", "备注", "姓名", "月份", "班次", "扫描日期", "加工时间", "合格品", "批次序号", "结果", "类型", "毛坯产地", "成品编码", "成品描述", "加工工序", "加工内容", "使用设备", "完成数量", "生产批次", "循环时间", "实际时间", "线别", "实际加工日期", "是否首件", "加工次数", "年", "月", "日", "扫码类型", "配刀单号", "制单人员", "制单日期", "加工单价", "加工金额", "审核人员", "审核日期"})
If "," & _UserGroup & "," Like "*生产部文员*" Then lst.AddRange({"备注", "姓名", "班次", "扫描日期", "合格品", "完成数量", "循环时间", "实际时间", "线别", "实际加工日期", "加工次数", "扫码类型", "配刀单号", "加工单价", "加工金额", "审核人员", "审核日期", "生产型号", "毛坯状态", "加工时间", "加工单价", "加工金额", "循环时间", "结果", "类型", "月份", "使用设备"})
Else
e.cancel = True
End If
加好友 
发短信
Post By：2024/6/27 12:36:00 [只看该作者]
