锁定/解锁单元格excel VBA

Question

I have a code i am trying to apply. The Objective of the macro is that when the relevant cell is double clicked a time stamp is applied then cell is locked from editing. If cells need to be edited then a password needs to be applied.

The problem is that i am not able to get the locking of the cells and password to work.

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

Does this do the job? Not sure what you want to happen if someone wants to change a filled cell. You could have a separate SelectionChange or Change event to handle that.

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