Code du Workbook :

Sheets("ADMIN").Visible = xlSheetVeryHidden
    Sheets("NOMENCLATURE BE PROD").Visible = xlSheetVeryHidden
    Sheets("AIDE ETUDE").Visible = xlSheetVeryHidden
    Sheets("CALCUL CHASSIS").Visible = xlSheetVeryHidden
    Sheets("CALCUL PATTES").Visible = xlSheetVeryHidden
    Sheets("CONSULTATION VITRAGE").Visible = xlSheetVeryHidden
    Sheets("RÉSERVATIONS").Visible = xlSheetVeryHidden
    Sheets("ACCUEIL").Visible = xlSheetVeryHidden


Code pour le bouton valider du useform :



Private Sub CheckBox1_Click()

If Form_Utilisateur.CheckBox1.Value = False Then
Form_Utilisateur.Mdp.PasswordChar = "*"
Else
Form_Utilisateur.Mdp.PasswordChar = Empty
End If

End Sub

Private Sub Validation_Click()

Set login = Range("Utilisateurs").Find(Form_Utilisateur.Identifiant.Value, LookIn:=xlValues, lookat:=xlWhole)
Set MotDePasse = Range("Utilisateurs").Find(Form_Utilisateur.Mdp.Value, LookIn:=xlValues, lookat:=xlWhole)

If login Is Nothing Or MotDePasse Is Nothing Then
MsgBox ("Uilisateur ou mot de passe érroné")
Form_Utilisateur.Identifiant.Value = ""
Form_Utilisateur.Mdp.Value = ""
Me.Identifiant.SetFocus

Exit Sub

End If

If Not login Is Nothing And Not MotDePasse Is Nothing Then
Sheets("NOMENCLATURE BE PROD").Visible = True
Sheets("AIDE ETUDE").Visible = True
Sheets("CALCUL CHASSIS").Visible = True
Sheets("CALCUL PATTES").Visible = True
Sheets("CONSULTATION VITRAGE").Visible = True
Sheets("RÉSERVATIONS").Visible = True
Sheets("ACCUEIL").Visible = True
Sheets("LOGIN").visble = xlSheetVeryHidden

End If

End Sub