A macro for a Conditional Sheet Lock

[Angulu]

Hi family,
I am looking for a macro that, when the value in the in E8 is Pascal, then sheet1 remains active. But if the value in E8 is changed to something else like John, or when the value is deleted, then sheet1 on this workbook locks with (cannot be edited) with password 2222 until the value Pascal is re-entered again in E8. Is this really possible?
Please help.
See the uploaded file for more information.

[Mumps1]

Start by unlocking cell E8. Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your Control sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in E8 and press the RETURN key.

Please Login or Register  to view this content.

Please note that the sheet will be protected without a password. If you want to use a password, the macro will have to be modified.

[Angulu]

Hi,
This macro is locking the control sheet itself instead of sheet1 when values other than Pascal are placed in cell E8. Check, please.
What if also we make the locking to be with a password as you said, how would the modified code look?
Thank you this far.

[Mumps1]

Change the password (in red) to suit your needs.

Please Login or Register  to view this content.

[Angulu]

Thanks, thanks, thanks 100 times!
It works perfectly.
have your star.

[Mumps1]

You are very welcome.