老师，我想让非以下人员对此表只有查看权限，无任何编辑权限，但是目前按照以下设置的除非以下所设置的其他人员反而可以编辑整个表，请帮忙看看，谢谢
Dim lst As new List(of String)
If "," & _UserGroup & "," Like "*,管理员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})
If "," & _UserGroup & "," Like "*,生产部文员,*" Then lst.AddRange({"材料编码", "材料描述", "库位", "总库存数", "单位", "备注", "规格型号", "可用结存", "最小起订量", "采购周期", "工装代码", "存放位置", "文件管理", "上传人员", "上传日期", "图纸", "线别", "目前状态"})
e.cancel = Not lst.contains(e.Col.Name)
加好友 
发短信
Post By：2024/2/19 9:45:00 [只看该作者]
