SOSOrdi.net
Identification
Pas encore inscrit ? Cliquez-ici
Bandeaux anti-publicités informatifs dans une question donnée sur SOSOrdi.net pour désactiver les bloqueurs : qu'en pensez-vous ?

remplacer un mot de passe par un autre avec VBa

Bonjour le forum,
Heureux de vous retrouver après une très longue période d'absence.

Voici mon problème. Dans une feuille de calcul "Passe" j'ai stocké un mot de passe "CLAS" en A1.
Ce mot de passe permet l'accès à des cellules verrouillées de certaines feuilles de calcul du même fichier.

Dans la feuille "INTRO" il y a un bouton qui permet d'ouvrir un UserForm avec 2 TextBox, une demandant l'ancien mot de passe (AncMdp) et l'autre demandant le nouveau mot de passe (NouvMpd).

J'ai créé ce module :
" Sub ProtectMDP(AncMdp As String, NouvMdp As String)

mdp = Sheets("Passe").Cells(1, 1).Value
If AncMdp.Value = mdp Then
Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value

Sheets("Chèques_vacances").Unprotect AncMdp
Sheets("Chèques_vacances").Protect NouvMdp, UserInterfaceOnly:=True

Sheets("Petits_voyages").Unprotect AncMdp
Sheets("Petits_voyages").Protect NouvMdp, UserInterfaceOnly:=True

Sheets("Grands_voyages").Unprotect AncMdp
Sheets("Grands_voyages").Protect NouvMdp, UserInterfaceOnly:=True

Sheets("Prêt").Unprotect AncMdp
Sheets("Prêt").Protect NouvMdp, UserInterfaceOnly:=True

Sheets("CESU").Unprotect AncMdp
Sheets("CESU").Protect NouvMdp, UserInterfaceOnly:=True

Else

MsgBox "L'ancien mot de passe n'est pas valable"

End If
End Sub"

Mais je ne sais pas comment faire pour le relier à mon UserForm.
Pouvez-vous m'aider s'il vous plait ?
Je vous en remercie par avance
posté le 1 Mar 2018 dans la catégorie VB/VBA par Hpotter

1 Réponse

Bonsoir Hpotter
Qu'est ce que tu entends ou veux faire en disant "Mais je ne sais pas comment faire pour le relier à mon UserForm." ?
répondu le 8 Mar 2018 par airbus64
Aidez SOSOrdi.net !

Actualités / Articles / Astuces associés :

Questions associées:

6 réponses 1,990 vues
posté le 26 Juin 2005 dans la catégorie VB/VBA par thomas171074
7 réponses 116 vues
posté le 6 Juin 2004 dans la catégorie VB/VBA par tims
4 réponses 1,830 vues
3 réponses 20 vues
posté le 26 Août 2005 dans la catégorie Programmation par psi343
7 réponses 29 vues
posté le 27 Juin 2004 dans la catégorie VB/VBA par tims
Retour en haut
...