Lock date

[Paul Norris]

Hi all

I am trying to figure out how to lock a cell date automatically after the user saves changes, it's current format it is a tick box with a reference cell Today() but it need to be locked once completed, any ideas ???
Thanks in advance

Paul

 

[cstimart]

Hi all

I am trying to figure out how to lock a cell date automatically after the user saves changes, it's current format it is a tick box with a reference cell Today() but it need to be locked once completed, any ideas ???
Thanks in advance

Paul

When necessary to save the date, copy the cell and paste the value.

 

[Paul Norris]

When necessary to save the date, copy the cell and paste the value.

Suppose I could write a macro for that,

Cheers for the reply
P

 

[Biz]

Try Vba below

Sub UnlockMe()
    Dim cl As Range
    Sheets("Sheet1").Unprotect Password:="Genie"
    For Each cl In ActiveSheet.UsedRange.Cells
        If CDate(cl) < CDate(Date) And Not (cl.Value = vbNullString) Then
            cl.Locked = True
        Else
             cl.Locked = False
        End If
    Next cl
    Sheets("Sheet1").Protect Password:="Genie"
End Sub

 

[Paul Norris]

Try Vba below

Sub UnlockMe()
    Dim cl As Range
    Sheets("Sheet1").Unprotect Password:="Genie"
    For Each cl In ActiveSheet.UsedRange.Cells
        If CDate(cl) < CDate(Date) And Not (cl.Value = vbNullString) Then
            cl.Locked = True
        Else
             cl.Locked = False
        End If
    Next cl
    Sheets("Sheet1").Protect Password:="Genie"
End Sub

Perfect thanks

 

[Biz]

Perfect thanks

Thanks for feedback

Biz