Problem with protection of Sheet

[divyaquamara]

Hi,
I have a macro that extracts data from a summary sheet and places it several different reporting tempelates (having a fixed format).
There is also the current date which is placed on all the tempelates using a Now() function.
The macro runs well .
But I need to protect all worksheets in the workbook for content and structure so I used the following:

For Each ws In ActiveWorkbook.Worksheets
 ws.Protect Password:="dm12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws

The above code protects all the data that has been extracted from summary sheet but does not protect the time stamp field in all the worksheets.
I need to protect those two cells as well.
How should I proceed.
Thanks in advance.

 

[Andrew Poulsom]

You need to Lock all the cells before protecting the worksheet.

ws.Cells.Locked = True

 

[divyaquamara]

Thanks a lot that solves my problem.
But is there a way in which I can lock only cells "AW1 :AX2" (merged cells) in all the worksheets.
Thanks in advance

 

[Andrew Poulsom]

Try:

ws.Range("AW1:AX2").Locked = True

 

[divyaquamara]

Thanks Andrew. That works .