i like for example 6 sheets viewable and 3 sheets hide / unhide with password.
I've found the code below and execute the macros with e.g. ctrl.u for unhide and CTRL-H for hide.
1. I want to change that i can unhide / hide sheet7,sheet8,sheet9 in one step with CTRL-U, CTRL-H
2.Now every User can see the Macro Code with the password include - How can i protect that?
Thanks in advance
Sheets("Sheet2").Visible = xlVeryHidden
pword = Application.InputBox("Enter password to view sheet2", "PASSWORD REQUIRED")
If pword = "PASSWORD" Then
Sheets("Sheet2").Visible = True