Hide/Unhide worksheets tied to button w/password

[Blackcloud_9]

I have an automated spreadsheet. I need to hide/unhide a couple of worksheets (named "Minitab Output" & "Configurations") through a macro.

The trick is I want to tie the macro to a button that when clicked will require a password to continue.
Also I would like it work in either direction...
Example:
Click button > Password > Unhide worksheets
Click button > Password > Hide worksheets

Thanks in advance
Let me know if you need anymore info

Balackcloud_9

 

[AlphaFrog]

Change the password "Secret" to suit.

Sub Button1_Click()
    Dim strPW As String
    strPW = Application.InputBox("The password is...", "Toggle Sheets Visible", Type:=2)
    If strPW = "False" Then Exit Sub 'User canceled
    If strPW = "Secret" Then
        Sheets("Minitab Output").Visible = Not Sheets("Minitab Output").Visible
        Sheets("Configurations").Visible = Not Sheets("Configurations").Visible
    Else
        MsgBox strPW, vbExclamation, "Invalid Password"
    End If
End Sub

 

[Blackcloud_9]

Works like a charm.

Thank you very much for your prompt response