Protect cells after data entry

[aehman]

Is there a way on the attached sheet to protect column E after data entry? Right now I have a code in there that will allow you to double click in column E for a time date stamp. I need to have the cell protected after that's done so no one can edit the time or date that's in there. Please help. password is "123"

[HansV]

Welcome to Eileen's Lounge!

Try the following version of the Worksheet_BeforeDoubleClick event procedure:

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        If Target.Locked = False Then
            ActiveSheet.Unprotect Password:="123"
            Target.Value = Now
            Target.Locked = True
            Target.Offset(0, 1).Select
            ActiveSheet.Protect Password:="123", AllowInsertingRows:=True
        Else
            Beep
            Cancel = True
        End If
    End If
End Sub

[aehman]

YOU ARE THE ABSOLUTE BEST!! thank you so much for all your help and patience! :)

[HansV]

Glad to have been able to help!