Unhide worksheets with password in userform

[bptaw]

I have an introduction sheet on which I want to place a userform which requires a password to unhide all other sheets which are very hidden. The correct password unhides the sheets and reveals a button link to Sheet2. On saving and closing the workbook all sheets are again hidden so the password is required each time it is opened. I have tried to adapt various similar solutions but am not skilled enough in vba or use of userforms.

 

[bptaw]

I have the following code in my userform button, but nothing happens when I run it
:
Private Sub CommandButton1_Click()
Dim password As String
password = "password"

If TextBox1.Value = password Then
' Unhide sheets
ThisWorkbook.Sheets("Sheet1").Visible = xlSheetVisible
ThisWorkbook.Sheets("Sheet2").Visible = xlSheetVisible
ThisWorkbook.Sheets("Sheet3").Visible = xlSheetVisible
ThisWorkbook.Sheets("Sheet4").visible = xlSheetVisible


' Show button link to Sheet2
Sheet3.Shapes("ButtonLink").Visible = True

' Hide the UserForm
Unload Me
Else
MsgBox "Incorrect password. Please try again."
End If
End Sub

 

[bptaw]

I am making progress with my userform:

Private Sub cmdLogin_Click()

Dim user As String
Dim password As String
user = Me.txtUserID.Value
password = Me.txtPassword.Value

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

Unload Me
' Loop through all worksheets in the workbook
For Each ws In ThisWorkbook.Sheets
' Check if the sheet is very hidden
If ws.Visible = xlSheetVeryHidden Then
' Unhide the sheet
ws.Visible = xlSheetVisible
End If
Next ws


Else

MsgBox "Invalid login credentials. Please try again."

End If


The last part I want to add is that a shape is also made visible as part of this process.