SOSOrdi.net
Soutien
Identification
Pas encore inscrit(e) ? Cliquez-ici
La May Update de Windows 10 (2004) est déployée : qu'en pensez-vous ?

Question cloturéeRemplacer 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
fermer avec la note: clôture automatique de la question
posté le 1 Mar 2018 dans la catégorie VB/VBA par Hpotter
fermé le 25 Jan par Robot SOSOrdi

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 !

Questions associées:

3 réponses 85 vues
posté le 11 Mar dans la catégorie VB/VBA par eric451020
6 réponses 2,300 vues
posté le 26 Juin 2005 dans la catégorie VB/VBA par thomas171074
7 réponses 134 vues
posté le 6 Juin 2004 dans la catégorie VB/VBA par tims
4 réponses 1,936 vues
3 réponses 23 vues
posté le 26 Août 2005 dans la catégorie Programmation par psi343
Retour en haut
...