How to lock the cell ranges automatically to protect entire workbook?

[mso3]

Hi friends,

Good morning!

I need a little revision to fully protect the workbook. At present I have unlocked some cell ranges for data entry which I want to lock after expiry date. However it's very laborious job to manually lock all the cell ranges to protect the workbook fully to prevent any change after expiry date.

Any help will be appreciated.

Thanking you,

[HaHoBe]

Hi, mso3,

depending on if you want to lock all cells on the sheets try

Please Login or Register  to view this content.

for the entire sheet or

Please Login or Register  to view this content.

only for the area with data/formulas.

Ciao,
Holger

[mso3]

Hi Holger,

Good morning!

I'm getting compile error '1004 the password is not correct' on the line

Please Login or Register  to view this content.

on the first piece of code for entire workbook. The cells are locked after expiry date and the workbook is protected by the new password. It's correct but the error occurs when I reopen the workbook. At this time it tries to unprotect the workbook by old password which is not applicable after expiry date. See the file attached and suggest me a correction.

Thank you.

[ag273n]

what i notice is that you have set two different Passwords on the code - i believe is causing the error

Please Login or Register  to view this content.

[HaHoBe]

Hi, mso3,

letīs add an error handler to the code in Workbokk_Open:

Please Login or Register  to view this content.

Ciao,
Holger

[mso3]

Hi Holger,
Excellent! Now It's working absolutely fine as per my requirement.

I sincerely appreciate you and your kind efforts to solve the problem.

Thanking you,

Have a nice day!