Lock cells on the basis of date VBA

[Rajesh Kr Joshi]

Hi, This code is working fine, but when a user open the file its gives a dbug window with error: "Unable to Set the range property of the range class" and when i click dbug it highlights the below line:
wksTarget.Cells.Locked = True

This happend when I added few more sheets and password protect them, but havnt changed anything in the code, because the code should only work for 1 sheet (that is my sheet1). Seems the code is also looking for other sheets, buut i have already mentioned the wkstraget as sheet1.

Thanks
Rajesh