SOSOrdi.net
Identification
Pas encore inscrit ? Cliquez-ici
Le 12 Décembre 2018, Orange a tenu sa conférence "Show Hello" : qu'en pensez-vous ?
  • IA, domotique, BlockChain, speker Djingo et 5G en approche : j'achète !
      13%
  • Les annonces sont appréciables mais j'aurais aimé plus de matériel : j'achète (une box) !
      0%
  • #IAInside : trop de data et de cloud, je n'en ai pas besoin : j'achète ailleurs !
      63%
  • Mode "Freenatique" : la Freebox Delta est mieux, #DevialetInside !
      13%
  • Ne sait pas / Pas d'opinion : C'est quoi le Show Hello ?! un teasing d'Adèle ?!
      13%
Voir les derniers sondages

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

Questions associées:

6 réponses 1,893 vues
posté le 26 Juin 2005 dans la catégorie VB/VBA par thomas171074
7 réponses 113 vues
posté le 6 Juin 2004 dans la catégorie VB/VBA par tims
4 réponses 1,790 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
...