Excel에서 데이터 입력 또는 입력 후 셀을 잠 그거나 보호하는 방법은 무엇입니까?

워크 시트가 있고 특정 범위의 빈 셀에만 데이터 입력이 필요하고 데이터 입력을 마친 후 다시 변경을 방지하기 위해 셀을 자동으로 잠 가야한다고 가정합니다. 그것을 달성하기 위해 어떻게 할 수 있습니까? 이 기사가 도움이 될 수 있습니다.

데이터 입력 또는 VBA 코드 입력 후 셀 잠금 또는 보호

데이터 입력 또는 VBA 코드 입력 후 셀 잠금 또는 보호

예를 들어, 빈 셀의 특정 범위는 A1 : F8입니다. Excel에서 데이터 입력 후 이러한 셀을 잠 그려면 다음과 같이하십시오.

1. 먼저이 범위를 잠금 해제하고 셀을 선택하고 마우스 오른쪽 버튼을 클릭 한 다음 셀 서식 마우스 오른쪽 버튼 클릭 메뉴 및 셀 서식 대화 상자에서 고정 아래 상자 보호 탭을 클릭하고 마지막으로 OK 단추. 스크린 샷보기 :

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. 프레스 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창.

A1 : F8 범위의 셀에 데이터 입력을 마치면 자동으로 잠 깁니다. 이 범위의 셀 내용을 변경하려고하면 프롬프트 대화 상자가 나타납니다. 스크린 샷보기 :

관련 기사:

• Excel에서 한 번에 수식의 모든 셀 참조를 잠그는 방법은 무엇입니까?
• Excel에서 다른 셀의 값을 기반으로 셀을 잠 그거나 잠금 해제하는 방법은 무엇입니까?
• Excel에서 그림 / 이미지를 셀 내부 또는 내부에 잠그는 방법은 무엇입니까?