1. First select all the cells and unlock them (Format >
Cells > Protection tab).
2. Go to View > Toolbars and select "Control Toolbox".
3. Click on the command button icon once and draw a
button on your worksheet.
4. Right-click the button and go to "View Code". Paste in
the following:
Private Sub CommandButton1_Click()
With ActiveSheet
.Unprotect Password:="sesami"
With [J1]
.Value = Now
.NumberFormat = "mm/dd/yy h:mm AM/PM"
.Locked = True
End With
.Protect Password:="sesami"
End With
End Sub
5. Press ALT+Q.
6. Right-click on the button again, go to Properties, and
change the Caption property. Exit Properties.
6. Click on the icon "Exit Design Mode" on the Control
Toolbox toolbar.
7. Close the toolbar.
HTH
Jason
Atlanta, GA
-----Original Message-----
We have a worksheet that we want users to be able to press a button on the
worksheet & which in the next cell near the button, it would stamp the
current time and/or date from the system. Then the cell with the date and/or
time would be unable to be changed once the button is pressed (locked)
.