'// 중략

Dim objEnt As Object

Dim ctr As Control '//--------?????
Dim objLayer As AcadLayer  '//-------?????
Dim colLayers As AcadLayers '//--------?????
Set colLayers = ThisDrawing.Layers '//-------?????

For Each objEnt In objSelSet
    If Not (objEnt.color = 2) Then
        Set ctr = objLayer.Controls(objEnt.Layer) '//---------?????
        If ctr.Lock = False Then '//-----------------------------?????
           objEnt.color = 1
       End If
    End If
Next

????? --------- 이부분을 추가했는데요.
원하는 대로 실행이 안됩니다.
저는 왜 응용이 안되는 걸까요?? ㅎㅎ