Password Protect Hidden Sheets With Macro

[Mike Stephens]

Hello all,

I'm new to the forum (been browsing a while, but never posted). I need to make a workbook with many sheets for different user groups. What I want to do is be able to have only one sheet show when opened. On this sheet I want to have a set of buttons to trigger different macros which unhide different sets of hidden sheets. For example; Sheet1 would contain three buttons. When you select button1 a password is required to unhide sheet2, sheet3, and sheet4. When you select button2 a different password is required to unhide sheet5, sheet6, and sheet7. When you select button 3 a different password is required to open sheet8, sheet9, and sheet10. It would also be nice for different users to be able to change their password if needed.

I've been using Excel for a while, but have very little experience with macros so I'm not even sure if this is possible. But I appreciate any advice.

 

[VoG]

This may get you started

Private Sub CommandButton1_Click()
Dim pw As String, i As Long
pw = InputBox("Enter password")
If pw <> "VoG" Then Exit Sub
For i = 2 To 4
    Sheets(i).Visible = xlSheetVisible
Next i
End Sub