Lock 걸린 레이어 제외하고 객체선택 방법질문입니다.

안녕하세요.

객체를 선택해서 컬러를 변경하는 기능인데요,

Lock 걸린 레이어 객체가 선택되면 런타임 오류가 발생합니다.

Lock 레이어를 제외하고 선택하고 싶은데

어찌 수정해야 할지 조언부탁드립니다.

Sub ChangeColor()
    UserForm1.hide
   
    Dim objSelected As Object
    Dim objSelSet As AcadSelectionSet
   
    On Error Resume Next
    If ThisDrawing.SelectionSets.Item("SS1") Then
        ThisDrawing.SelectionSets.Item("SS1").Delete
    End If
    Set objSelSet = ThisDrawing.SelectionSets.add("SS1")
    On Error GoTo 0

    Dim DG_Code(10) As Integer
    Dim DG_Data(10) As Variant
    DG_Code(0) = -4: DG_Data(0) = "<and"
    DG_Code(1) = -4: DG_Data(1) = "<or"
    DG_Code(2) = 0: DG_Data(2) = "Line"
    DG_Code(3) = 0: DG_Data(3) = "Arc"
    DG_Code(4) = 0: DG_Data(4) = "Circle"
    DG_Code(5) = 0: DG_Data(5) = "Lwpolyline"
    DG_Code(6) = -4: DG_Data(6) = "or>"
    DG_Code(7) = -4: DG_Data(7) = "<not"
    DG_Code(8) = 8: DG_Data(8) = "TEMP"
    DG_Code(9) = -4: DG_Data(9) = "not>"
    DG_Code(10) = -4: DG_Data(10) = "and>"
    objSelSet.SelectOnScreen DG_Code, DG_Data
   
    Dim objEnt As Object
    
    For Each objEnt In objSelSet
        If Not (objEnt.color = 2) Then  '//노랑색이 아니면 1번컬러로 변경
            objEnt.color = 1

    End If
    Next
    Unload UserForm1
End Sub