error when changing format of unprotected cell of a protected sheet

[frankjet]

Via VBA I change the formatting of a cell. This cell is unprotected.
When I protect (Tools - protect) the sheet, I get an error when I start the VBA-code (macro).

Some code I wrote:
ActiveCell.Offset(1, 0).Activate
ActiveCell.Formula = Now()
Selection.NumberFormat = "h:mm:ss"

The last line gives the problem.

Is there a possibility to change the default formatting of the formula now(). It has to be "h:mm:ss"

Thanks in advance.

 

[ratman]

Consider:

I formatted [A1] as unlocked
All other cells are locked (default)
I protected the Worksheet
I ran this line of code

[A1].Value = Format(Now(), "h:mm:ss&quot


Worked with no error

If I'm way off on this email me at
drat@mediaone.net