Master Workbook or Master Password to access a workbook with multiple password protected worksheets

[namazin2]

My company has an Excel workbook with a "Menu" worksheet with linked buttons to individual password protected worksheets for varying individuals.
Management wants to be able to open this file without having to type in the 15 some odd individual passwords each time. I've been tasked with figuring out how to accomplish this. Needless to say, this has taken up most of my day messing around with varying VBA. I CONCEDE! Not sure what the best way is... perhaps a master workbook with coding opening the main workbook and the 15 password protected pages? OR is there a master password that can be entered ONCE, over riding the others? Can anyone help me with this?! I am by no means experienced in this area, so actual code would be much appreciated.

 

[JeffK627]

Can you explain this in a little more detail? Do other people besides managers open this file, and if so, should they not have the password for the 15 worksheets?

 

[JeffK627]

If only managers should be able to get to those protected sheets, maybe something like:

sMgrPW = Application.InputBox(Prompt:="Enter Manager Password.", Type:=1)
If sMgrPW = "Password"  'replace with real password
        'code to unprotect worksheets
Else
        MsgBox "Wrong Password!"
End If

 

[namazin2]

Can you explain this in a little more detail? Do other people besides managers open this file, and if so, should they not have the password for the 15 worksheets?

Yes there are 12 other users I believe, accessing THEIR specific worksheet on the "menu" page linked through a button with their own personal password.
The management have a list of the user's passwords, but I think they want to access the whole workbook without having to type in all the passwords every time they want to look at it. These are pages tallying individual sales stats, password protected from one another. There is also a sheet totaling all the individuals specs.

Was this what you were looking for?

 

[namazin2]

I found this...

Sub protect_sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect password:="123"
Next ws
End Sub

Sub unprotect_sheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect password:="123"
Next ws
End Sub

BUT, I think that's if all the pages shared the same password.