locking cell

[Dominic]

Hello friends,
I need to create time sheets for work.. So I have created
a macro for entering the current time. But I do not want anyone to be able to
change the time once it is entered in that column. And any time entered in
the column should always be the current time

Below is my macro for current time
Private Sub cmd_time_Click()
ActiveCell.Clear
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Value = ActiveCell.Value
End Sub

What do I do?

 

[Gord Dibben]

Private Sub cmd_time_Click()
ActiveSheet.Unprotect Password:="theword"
With ActiveCell
.Value = Format(Now, "h:mm:ss AM/PM")
.Locked = True
.Columns.AutoFit
End With
ActiveSheet.Protect Password:="theword"
End Sub

I would first unlock all cells before protecting the sheet originally.


Gord Dibben MS Excel MVP

 

[john]

there is a sample timesheet workbook you can download for free at this site
which may give you some development pointers.
http://spreadsheetpage.com/index.php/file/C35/P20/