我想禁止用户修改某个图层，把该图层锁定，然后编程不让用户打开锁定，可是下面的程序运行的时候会出现“对象已打开”的错误。
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
Dim subBool As Boolean
Dim subName_Obj As String
On Error Resume Next
subName_Obj = Object.ObjectName
If Err 0 Then
Err.Clear
ElseIf subName_Obj = "AcDbLayerTableRecord" Then
If Object.Name = "锁定图层" Then
loclayer
End If
End If
End Sub
Public Sub locklayer()
On Error Resume Next
Dim layer As AcadLayer
Set layer = thisdrawing.Layers("锁定图层")
layer.TrueColor = c251
layer.LayerOn = True
layer.Lock = True
layer.Freeze = False
If Err 0 Then
MsgBox Err.Description
End If
End Sub
置顶卡
