Macro to lock the worksheet using an embedded password?

The code below controls two macros. The first one locks the worksheet, the other unlocks the worksheet; and both require that you enter a password to lock and/or unlock it. I would like to modify the code below so that it ONLY requires you to enter a password to unlock it. When users push the button to lock the worksheet, I do not want them to have to enter a password, as they are not supposed to know the password. Instead it should just automatically lock the the worksheet based on something in the code that knows the password is "1234".

Please Login or Register  to view this content.