Reduction of passwords

[Hidden Dan]

Hello,

I got several Excel spreadsheets running with VBA scripts. Thank you all for helping me with those.

Now I wonder one thing. In a module several individual scripts are listed. All include password protect / unprotect. If I want to change password I have to change them all in all modules. This is a lot of work. Password it self is same in every script.

Example :

Sub Column_LM_open()


ActiveSheet.Unprotect Password:=""
    Columns("L:M").EntireColumn.Hidden = False
ActiveSheet.Protect Password:=""


End Sub

Sub Column_LM_close()


ActiveSheet.Unprotect Password:=""
    Columns("L:M").EntireColumn.Hidden = True
ActiveSheet.Protect Password:=""


End Sub

In this case I have to change both, same passwords twice. Is there a way to simplify those scripts so that I only need to change 1 password for all scripts in a module ?


Thank you for your help.

Dan

 

[steve the fish]

Put this at the top:

Public Const pw = "password"

then use pw

 

[Hidden Dan]

Tested and works well.

Thanks