Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton5_Click() 'On test si les renseignements sont donnés et on les récupére If TextBox14.Text <> "" Then MDPActuel = TextBox14.Text Else MsgBox "Veuillez saisir le mot de passe actuel!", vbInformation, "PMS 51" Exit Sub End If If TextBox12.Text <> "" Then MDPNouveau = TextBox12.Text Else MsgBox "Veuillez saisir le nouveau mot de passe!", vbInformation, "PMS 51" Exit Sub End If If TextBox13.Text <> "" Then MDPRenouveau = TextBox13.Text Else MsgBox "Veuillez resaisir le nouveau mot de passe pour confirmation!", vbInformation, "PMS 51" Exit Sub End If 'On vérifie le mot de passe actuel If MDPActuel <> CStr(Cells(691, 10).Value) Then MsgBox "Ce n'est pas le bon mot de passe!", vbCritical, "PMS 51" TextBox14.Text = "" Exit Sub End If 'On vérifie les nouveau mot de passe If MDPNouveau <> MDPRenouveau Then MsgBox "Les nouveaux mot de passe ne correspondent pas!", vbCritical, "PMS 51" TextBox13.Text = "" Exit Sub End If niveau1 = CStr(Cells(691, 10).Value) ActiveSheet.Unprotect (niveau1) Cells(691, 10).Value = MDPNouveau Cells(691, 18).Value = MDPActuel niveau1 = CStr(Cells(691, 10).Value) ActiveSheet.Protect (niveau1) MsgBox "Le mot de passe a été modifier." + Chr(10) + Chr(13) + "Veuillez redémarrer AutoEtalon", vbExclamation, "PMS 51" Unload Me End Sub
On Error Resume Next Workbooks("AutoEtalon").Worksheets("Rapport d'étalonnage fléau").Unprotect (niveau3) If Err = 1004 Then 'si le mot de passe à changer alors on prend l'ancien et on déprotège la feuille niveau3 = Workbooks("Paramètrages").Worksheets("Paramètrages").Cells(691, 18).Value Workbooks("AutoEtalon").Worksheets("Rapport d'étalonnage fléau").Unprotect (niveau3) 'puis on reprotege avec le nouveau mot de passe niveau3 = Workbooks("Paramètrages").Worksheets("Paramètrages").Cells(691, 10).Value Worksheets("Rapport d'étalonnage fléau").Protect (niveau3) End If
Il est placé dans une UserForm contenant des Multipages (car plusieurs fonctionnalité demandant un mot de passe). Et ensuite j'actualise mes mots de passe en redémarrant mon programme principale.