[求助]：禁止用户编辑某图层

simatyga

我想禁止用户修改某个图层，把该图层锁定，然后编程不让用户打开锁定，可是下面的程序运行的时候会出现“对象已打开”的错误。

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

qwe08

看不明白