Command Button that shows Hidden Sheets - Needs Password Protection

Hello All,

I have a Command Button that shows all hidden sheets in the workbook... Here is the code

Sub ShowDataSheets()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

I am needing to code the macro so that the user must enter a specific password in order to use the Command Button.

Any solutions in mind!


Sorry about missing the Code Tags!


Best Regards

John