Makro excel lock cell

BiG123 

Here’s how you can modify your macro to unlock the cells, update them, and then re-lock them:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    ' Disable worksheet protection to allow updates
    Me.Unprotect Password:="YourPassword"

    If Target.Column = 4 Then
        ThisRow = Target.Row
        Range("e" & ThisRow).Value = Date
        Range("f" & ThisRow).Value = Format(Time, "Long Time")
    ElseIf Target.Column = 7 Then
        ThisRow = Target.Row
        Range("h" & ThisRow).Value = Date
        Range("i" & ThisRow).Value = Format(Time, "Long Time")
    End If

    ' Re-enable protection after the updates
    Me.Protect Password:="YourPassword"

End Sub

The code were edited with the help of AI.

My answers are voluntary and without guarantee!

Hope this will help you.

Was the answer useful? Mark as best response and Like it!

This will help all forum participants.