Password Protect Multiple Sheets

Hi all,

I use the following code on a Userform to display all sheets in a listbox.
After hitting the CommandButton it will go to the selected sheet on the listbox.

I'd now like to make some of the sheets accessible with a password only.
I have no idea how to do this though.

Any ideas?

Please Login or Register  to view this content.

This should be simple enough to customize:

Please Login or Register  to view this content.

I don't see a workbook with a button you want me to troubleshoot. Click GO ADVANCED and use the paperclip icon to post up a copy of your workbook.

See if this helps, you can set sheets visible or not for each user


PASSWORD FORM4.zip

It's impossible for us to check your work if you don't show it. Your workbook above does not have the macro code I provided installed with the appropriate changes (sheet tab names...you did read the code, yes?), so how are we to review your attempts?

When I put the code I gave into the same place as your current code and edited the macro to list the actual sheet names to protect in your sample wb, it worked as shown.

Read the code I gave you. Make sure you understand it, because it is glaringly obvious I put generic sheet names into the macro expecting you to edit them to the sheet names you want to PASSWORD protect. I even put in a generic password you would need to edit, too.

Edit the macro (as I already pointed out in post #7) and it works.

(nudge)(poke)

Yes, leave those sheets off the list in the macro.

Try this, this version shows TWO sheets with password protection, the others have none:

Please Login or Register  to view this content.

Also, this code will make all your sheets hide themselves when you leave the sheets. Put this macro into your ThisWorkbook module.

Please Login or Register  to view this content.

Notice the way these sheets are hidden, they can only be unhidden with VBA, there is no menu command a user can use to unhide sheets manually hidden this way. This increases the likelihood that hidden sheets will remain hidden, even if the user opens the workbook with macros disabled.

Hello Jonathan78 & JBeaucaire:

SECURITY THROUGH OBSCURITY
With the current solution, you have everyone that uses the UserForm seeing the list of all sheets available. Just wondering if you really want people to know there are sheets that they aren't supposed to look at ? The following solution asks for an admin password during the initialization of the userform.... with this approach you must enter an admin password to see the Admins Sheets in the the list. This way non-Admins don't even know that the "other" sheets exist so less temptation to get into the restricted sheets. With this solution there is no need to ask for a password each time an Admin clicks on a specific sheet ... because if it's in the list it's a sheet the person is alllowed to see.

Please Login or Register  to view this content.