Excel에서 데이터 입력 후 셀을 잠그거나 보호하려면 어떻게 해야 하나요?

특정 범위의 빈 셀에만 데이터를 입력해야 하는 워크시트가 있다고 가정해 봅시다. 데이터 입력을 마친 후에는 변경을 방지하기 위해 해당 셀이 자동으로 잠기도록 설정하려고 합니다. 이를 어떻게 달성할 수 있을까요? 이 문서는 당신에게 도움을 줄 것입니다.

VBA 코드를 사용하여 데이터 입력 후 셀 잠그기 또는 보호하기

VBA 코드를 사용하여 데이터 입력 후 셀 잠그기 또는 보호하기

예를 들어, 특정 범위의 빈 셀은 A1:F8입니다. Excel에서 데이터 입력 후 이러한 셀을 잠그려면 다음 단계를 따르세요.

1. 먼저 해당 범위를 선택하고, 마우스 오른쪽 버튼을 클릭한 후, 서식 메뉴에서 '셀 서식'을 선택하세요. '셀 서식' 대화 상자에서 '보호' 탭 아래의 '잠금' 체크박스를 해제하고, 마지막으로 '확인' 버튼을 클릭하세요. 스크린샷 참고:

2. 리뷰 > 시트 보호를 클릭하세요. 그리고 이 워크시트를 보호하기 위한 비밀번호를 지정하세요.

3. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고, 메뉴에서 '코드 보기'를 선택하세요. 그런 다음 아래 VBA 코드를 복사하여 코드 창에 붙여넣으세요. 스크린샷 참고:

VBA 코드: 데이터 입력 후 셀 잠그기 또는 보호하기

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

참고: 코드에서 “A1:F8”는 데이터를 입력해야 할 범위이며, “123”은 보호된 워크시트의 비밀번호입니다. 필요에 따라 변경하세요.

4. Alt + Q 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

범위 A1:F8의 셀에 데이터 입력을 완료하면 해당 셀은 자동으로 잠깁니다. 이 범위 내의 셀 내용을 변경하려고 하면 경고 대화 상자가 나타납니다. 스크린샷 참고:

관련 문서:

• Excel에서 한 번에 모든 셀 참조를 잠그는 방법은 무엇인가요?
• Excel에서 다른 셀의 값에 따라 셀을 잠그거나 잠금 해제하는 방법은 무엇인가요?
• Excel에서 사진/이미지를 셀에 고정하거나 셀 안에 넣는 방법은 무엇인가요?