중소기업의 모든 업무자동화!

이럴 때 필요해요

셀을 수정하지 못하게 보호할때 유용하게 사용됩니다.

이렇게 사용해요

(1) 먼저, 필요한 범위(보호할 셀)를 지정한 다음 범위명을 지정해 줍니다. 

     Ctrl 키를 사용하여 범위를 다 지정하신 다음 '삽입-이름-정의' 메뉴에서 적당한 이름을 정해 주시면 됩니다.  

    이름 상자(Name Box)에 바로 이름을 입력하고 Enter 키를 누르셔도 됩니다.

     여기서는 'NoTouchArea'라고 이름을 정의하였습니다. 건들지 말라는 뜻에서!

(2) 그런 다음에 시트 탭을 오른쪽 마우스 버튼으로 누르고 '코드 보기' 메뉴를 선택합니다.

(3) '프로젝트 탐색기'에서 Sheet1(셀보호하기) 오브젝트를 더블 클릭하면 오른쪽에 코드 창이 나타날 것입니다. 

    아래의 그림과 같이 코드 창 상단에  

    있는 드롭다운 버튼을 클릭하여 워크시트 오브젝트의 'SelectionChange' 이벤트를 선택합니다.

(4) 아래와 같이 코드를 작성합니다.( 아직은 그냥 '복사'-'붙여 넣기' 를 하시는 편이 좋을 것 같습니다)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim rngSelect As Range

    On Error Resume Next

    Set rngSelect = Intersect(Target, [NoTouchArea])

    If Not rngSelect Is Nothing Then Target.Next.Select

End Sub

(5) 마지막으로 '코드입력창'에 방금 입력한 내용이 아래의 그림과 같이 제대로 입력이 되었는지 확인합니다.

이렇게하면 아까 지정한 셀을 눌러도 셀이 보호되어 계속 다른곳으로 저절로 이동하는 모습을 볼수있습니다!

지금은 다소 생소하고 어려워 보일 수도 있겠습니다만 다음에 VBA에서의 '구문'에 대해서 어느 정도만 이해하시게 되면 그다지 어렵지 않은 

비교적 간단한 내용이랍니다.