If Me.boxPassword.Value = "12345" Then
Unload Me
Sheets("Configuração").Visible = True
Sheets("Configuração").Select
Else
Me.Hide
Retry = MsgBox("Passe incorreta, Tentar outra vez?", vbYesNo, "Retry?")
Select Case Retry
Case Is = vbYes
Me.boxPassword.Value = ""
Me.boxPassword.SetFocus
Me.Show
Case Is = vbNo
Unload Me
End Select
End If
This is functional, what I wanted now was to know how to have a method that would allow me to change the password to any other