'################################
'VALIDATION DES MOTS DE PASSE
'################################
Private Sub CommandButton1_Click()
Dim i
'Ne pas beugguer sur une erreur
On Error Resume Next
'saisie du mot de passe1
' si le mot de passe = 123 alors
If TextBox1 = "123" Then
'on ré initialize le textbox de saisie
TextBox1 = ""
'Décharger l'userform
Unload PASSE
'Ouvrir la page d'accueil
Sheets("bd1").Visible = True
Sheets("bd3").Visible = True
Else
[COLOR="Lime"]'saisie du mot de passe2[/COLOR]
If TextBox1 = "admin" Then
TextBox1 = ""
'afficher bouton cacher
Me.CommandButton2.Visible = True
Else
'saisie du mot de passe3
If TextBox1 = "321" Then
TextBox1 = ""
'Décharger l'userform
Unload PASSE
'Ouvrir la page d'accueil
Sheets("bd3").Visible = True
Sheets("bd4").Visible = True
Sheets("bd5").Visible = True
Else
'Message d'erreur si mot de passe incorrect
MsgBox "Mot de passe invalide", vbOKOnly, "Password"
'Vider la textbox
TextBox1 = ""
End If
End If
End If
End Sub