Password Protecting 2 worksheets from viewing

[Ejimenez]

Hello!!


I am trying to password protect 2 worksheets using VB. I have started the coding but the forum box is not disappearing after the user inputs the correct or incorrect password.

I hope you can help.

I want the userforum box to appear as soon as the workbook is open.

Here is what I have so far.


Private Sub workbook_before(cancel As Boolean)
Sheets("Score Weight").Visible = False
Sheets("Summary").Visible = False
End Sub

Private Sub Workbook_Open()
Administrator.Show
End Sub


Sub CommandButton2_Click()
If (TextBox1.Value = "hawkeye") Then

Sheets("Score Weight").Visible = True
Sheets("Summary").Visible = True
Sheets("Partner Score Form").Select

Else
Sheets("Score Weight").Visible = False
Sheets("Summary").Visible = False

retry = MsgBox("The Password is incorrect. Do you wish to try again?", vbYesNo, "Retry?")
Select Case retry
Case Is = vbYes
TextBox1.Value = ""
TextBox1.SetFocus
Show

Case Is = vbNo
Show
End Select
End If

End Sub

 

[BAlGaInTl]

Try this

Sheets("Score Weight").Visible = True
Sheets("Summary").Visible = True
Unload Me 'closes the form
Sheets("Partner Score Form").Select

 

[Ejimenez]

Thank you for the reply.

I added that Unload me to my code however, How to I made the forum appear as soon as the workbook gets open. It doesn't appear?

 

[BAlGaInTl]

I'm pretty sure this is the right code


Private Sub Workbook_Open()
Administrator.Show
End Sub


Do you have that in the "ThisWorkbook" module?