Hide and unhide columns with password

[Saturn]

I need to hide two column and also to unhide them, with a password.
Is it possible to hide/unhide columns (and rows) with a password ?
Could anybody help me with the macro ?
Please see the attached workbook...
Saturn

[Mumps1]

Try the attached file. The current password is 'mypassword'. Change the password in the macros to suit your needs.

[Saturn]

It works excellent with the original passoword, but it seems to some problemes when chagnge the passord in the VBA code to something else.
I will test it further tomorrow because this macro is really interessting, and a big need for. Thank you so far Mumpsi1. I will revert tomorrow morning around lunch. CET-time. Thans a lot so far!!

[Mumps1]

Before you change the password in the code, you have to unprotect the sheet with "mypassword" and then protect it again with your new password. Then change the password in the code and try it again. Please let me know how it works out.

[Saturn]

I get the error message 'Run-time error '1004'. I try to do it how you describe: unprotect with 'mypassword'. And then try to protect it with new passord, (..error msg..) and then change to the new password in the code, but then I get the Run-time error 1004-message. The new password I try to enter is 'Carl'. Could you be so kind to look into it this again, Mumps1 ?
Saturn

[Mumps1]

Try the attached file.