셀 잠금/잠금 해제가 VBA를 능가합니다.

Question

코드를 신청하려고합니다. 매크로의 목표은 관련 셀을 두 번 클릭하면 타임 스탬프가 적용된 다음 셀이 편집에서 잠기는 것입니다. 셀을 편집해야하는 경우 암호를 적용해야합니다.

문제는 작동하도록 셀과 암호를 잠글 수 없다는 것입니다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

    Application.EnableEvents = False 

    With Target 
     If .Column = 4 Then 
      Select Case .Row 
       Case 20, 24, 25, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 40, 42, 43, 44, 54, 55, 56, 58, 59, 61, 62, 63, 64, 65 
        .Value2 = "Prepared By" & " " & Environ("Username") 
        .Value2 = .Value2 & " " & Format(Now, "yyyy-MM-dd hh:mm:ss") 
        .Value2 = .Locked = True 
        .Value2 = ActiveSheet.Protect Password:="Test" 
        End Select 
        End If 
    End With 
End Sub 

Answer 1

이 작업을 수행합니까? 어떤 사람이 채워진 세포를 바꾸고 싶다면 어떤 일이 일어나기를 원하는지 확실하지 않습니다. 이를 처리하기 위해 별도의 SelectionChange 또는 Change 이벤트를 가질 수 있습니다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

With Target 
    If .Column = 4 Then 
     Select Case .Row 
      Case 20, 24, 25, 27, 28, 30 - 35, 37, 38, 40, 42 - 44, 54 - 56, 58, 59, 61 - 65 
       ActiveSheet.Protect Password:="Test", userinterfaceonly:=True 
       .Value2 = "Prepared By" & " " & Environ("Username") 
       .Value2 = .Value2 & " " & Format(Now, "yyyy-MM-dd hh:mm:ss") 
       .Locked = True 
     End Select 
    End If 
End With 

End Sub