how to view hidden sheets with Button Control

[RJSIGKITS]

Hi Guys.

Trying to achieve a hidden sheets (No visible tabs) type scenario, but to allow visibility with a Button Control.
So far, I have played with hiding the sheet by right clicking the tab and selecting 'Hide'
I currently have a Comand button with the following Code:

Private Sub CommandButton12_Click()    Dim pword As String
        pword = InputBox("Enter the password to Continue.", "Password Required!", "Type Password")
        
        If pword <> "Bobby12" Then
            MsgBox "Incorrect Password", vbExclamation + vbOKOnly, "Error"
            Exit Sub
        Else
            MsgBox "Success! Click OK to Proceed", vbInformation + vbOKOnly, "Success"
            ThisWorkbook.Sheets("Supplier Order Log").Activate
        End If
End Sub

However, when this is clicked, it ignores the hidden sheet and goes to the next sheet along.

On top of this, I really wanted the hidden sheet to be more securely hidden, by using the sheets VB property of xlSheetVeryHidden.

Any ideas from you Genius people?

Thanks in advance.

 

[RJSIGKITS]

Ah... It's alright, it's far simpler than I thought - Done:

• Step 1: Click the File tab in Excel 2010/2013, or click the
  
  button in Excel 2007;
• Step 2: Click the Options button;
• Step 3: In the Excel Options dialog box, go to the Advanced category;
• Step 4: Scroll down to the Display options for this workbook section;
• Step 5: Check or uncheck the Show sheet tabs option according to your needs. See screenshot:
• Step 6: Click OK. All of the worksheet tabs will be displayed or hidden.