Public mdp2 As String
Public Sub qb_c1(bouton As String) 'Configuration Mot de passe ADMIN
UFmdp2.Show
If mdp2 Like "encad" Then '<<<<<<<< Ici le Mot de Passe
okgo
Cancel = True
Else
MsgBox "Mauvais mot de passe", vbCritical, "ERREUR"
On Error Resume Next
On Error GoTo 0
Exit Sub
End If
End Sub
Private Sub okgo() 'Autorisation accès arrière plan
UFSaisie.Hide 'Masquage du formulaire Saisie des arrêts
Sheets("synthèse").Select
End Sub