Probably a common question. Any help?

mckaysdad · April 23rd, 2010, 04:49 PM

I am kind of new at writing macros into Excel and I have come across a doozy that I'm hoping someone can help me with.

I want to create a sheet that employees can enter data into and when they get to the end of the row and enter their initials, the date and time are automatically entered. That part I can do. However, I do not want the employees to be able to delete the time/date stamp. I lock the cells so that they cannot be edited, but, of course, I have an error come up because the macro is trying to put data into the cell and the cell is locked from data entry. What I need is a macro that will unlock the cells, write the time and date and then relock the cells. I have heard that such a beast exists, but I have not seen it and do not know the appropriate code myself.

Anybody able to help?

Thanks in advance,

Michael

Shasur · April 23rd, 2010, 09:17 PM

Hi

Can you check if the following code might help:

Code:

Sub Unprotect_And_ThenProtect()
    
    ActiveSheet.Unprotect
    Range("A2").Value = Now()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Cheers
Shasur