I am creating a spreadsheet for users to punch in an out after they have completed a task. I need to ensure that these entries are honest. Is there a formula I can use that will ensure a user can only enter the current time in a given cell?
The users will need to insert the current time into a given field. They know they should be using the shortcut (ctrl+shift+. I want to make sure that the user can not manually enter a non-current time.
On Error Resume Next
Dim LR As Long
LR = Sheets("Track").Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheets("Track").Range("A" & LR) = Now()
Sheets("Track").Range("B" & LR) = Environ("USERNAME ")