Gary

Assign this macro to a button or a shortcut key combo.

Sub Enter_Date()
ActiveSheet.Unprotect Password:="justme"
ActiveCell.Value = TimeValue(Now)
ActiveSheet.Protect Password:="justme"
End Sub

Note.....you set up the protection parameters like which columns are locked and
which cells can be selected in the ToolsProtectionProtect sheet dialog.

Enter a password which you will exchange with "justme" in the code above.


Gord Dibben MS Excel MVP

On Tue, 5 Sep 2006 13:56:58 -0600, "Gary" wrote:

Thanks sandy, this is exactly what am trying to do

The macro would...

1. Unprotect the sheet
2. Enter current time in the active cell.
3. Protect the sheet.

can u please send me the exact code. I dont know coding much.

Thanks again.

wrote in message
roups.com...
Not sure exactly what you are trying to do, but here are some things to
start you off:

**Enter in the Current Time into active cell

ActiveCell.Value = TimeValue(Now)

**Protect and unprotect a Sheet

ActiveSheet.Protect Password:="your password goes here(inside the
quotes)"

ActiveSheet.Unprotect "your password goes here(inside the quotes)"


Sandy



Gary wrote:
Hi,

Heres what am trying to accomplish.

two columns (protected), column A - Start Time and Column B End Time.

now when a person starts working he needs to enter the current time
in...say... A1. I want that person to press a key combination that would
run
a macro which will unprotect the both the columns, enter the current time
in
the Selected cell, and protect both the columns again. same at the time
of
End Time.

now I want the macro to enter the date only in the selected cell. but it
should unprotect and Protect both, entire columns. Also, when the columns
are protected, the user should be able to select the cells. please help.

Thanks.
Gary