startedit
Select Case e.Col.Name
Case "幅面","零部件名称","零部件图号","图纸更改","生产令号","项目名称","建议更改","备注","编号","制单日期","编制","审核","批准","工程项目","版本状况_版本","图纸性质_自主设计","图纸性质_设计来图","图纸性质_来图转化","产品编号","图纸编号","版本状况_升版","签收人","签收日期","版本状况_升版原因","版本状况_状态","签收","分发人","回收","经办人","回收日期","电子版"
Dim nms() As String = {"幅面","零部件名称","零部件图号","图纸更改","生产令号","项目名称","建议更改","备注","编号","制单日期","编制","审核","批准","工程项目","版本状况_版本","图纸性质_自主设计","图纸性质_设计来图","图纸性质_来图转化","产品编号","图纸编号","版本状况_升版","签收人","签收日期","版本状况_升版原因","版本状况_状态","签收","分发人","回收","经办人","回收日期","电子版"}
For Each nm As String In nms
If e.Row("回收") = True Then
e.cancel = True
End If
Next
End Select
其中列“电子版”设置了扩展列类型为文件,但是其他列都可以锁定,只有“电子版”列无法锁定,还可以打开、另存、插入等,怎样能让此列也锁定后无法编辑
[此贴子已经被作者于2019/3/20 17:53:51编辑过]