mot de passe

[marleauc]

Bonjour,

Je sollicite votre assistance car je suis bloqué, comment puis-je ajouter a mon userform une formule pour changer un mot de passe existant sans toujours aller dans visual basic

voici mon code
Private Sub UserForm_Initialize()
Me.TextBox1.Value = ""
MdpAdm = "1234"
End Sub
merci bcp

 

[job75]

Re : mot de passe

Bonjour marleauc,

Ben... mettez le mot de passe en cellule A1 de Feuil1 (CodeName)

Private Sub UserForm_Initialize()
 Me.TextBox1.Value = ""
 MdpAdm = Feuil1.[A1]
 End Sub

Mais ainsi il y a d'autres soucis 🙄

A+

 

[david84]

Re : mot de passe

Bonjour, salut Gérard,
peut-être en utilisant une InputBox.
A+

 

[tototiti2008]

Re : mot de passe

Bonjour marleauc, Bonjour Gérard 🙂, Bonjour David 🙂,

Ou en écrivant ton mot de passe dans un fichier texte externe que ton programme irait lire ?

 

[job75]

Re : mot de passe

Re, salut David, Marc 🙂

Notre ami veut probablement ceci dans le code de l'USF :

Option Explicit
Dim MdpAdm 'mémorisation pour utilisation ultérieure

Private Sub UserForm_Initialize()
Dim mdp&
Me.TextBox1.Value = ""
MdpAdm = "1234"
If MsgBox("Modifier le mot de passe ?", 4) = 7 Then Exit Sub
If InputBox("Ancien mot de passe :") <> MdpAdm Then Exit Sub
mdp = InputBox("Nouveau mot de passe :")
If InputBox("Répétez le mot de passe :") <> mdp Then Exit Sub
MdpAdm = mdp
ModifierMacro "MdpAdm = """ & MdpAdm & """"
End Sub

Sub ModifierMacro(texte$)
Dim LigneDebut&
With ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule
  LigneDebut = .ProcBodyLine("UserForm_Initialize", 0)
  .DeleteLines LigneDebut + 3, 1
  .InsertLines LigneDebut + 3, texte
End With
End Sub

Attention : il y a une case à cocher ("Faire confiance au projet VBA...") quelque part.

Si le code ne fonctionne pas et que vous ne trouvez pas cette case dites-le en indiquant votre version Excel.

Fichier joint.

A+

 

[job75]

Re : mot de passe

Re,

Bon pour vous éviter de chercher en vain la fameuse case à cocher :

- sur Excel 2010 il faut avoir coché l'option Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros)

- sur Excel 2003 il faut avoir coché l'option Faire confiance au projet Visual Basic (menu Outils-Macro-Sécurité-Editeurs approuvés).

A+

 

[job75]

Re : mot de passe

Re,

Hum hum, j'avais mal déclaré la variable mdp 😡 Prendre ce fichier (2).

A+

 

[job75]

Re : mot de passe

Bonjour le fil, le forum,

Avec 2 UserForms ce fichier (3) est quand même mieux.

A+

 

[job75]

Re : mot de passe

Re,

Pour finir, un seul USF qui modifie le mot de passe.

Fichier (4).

A+

 

[job75]

Re : mot de passe

Re, coucou Jean-Claude et David 🙂

Le fichier (4) précédent ne servait pas à grand'chose.

L'UserForm de ce fichier (5) a 2 fonctions :

- contrôler l'ouverture du fichier par le mot de passe

- modifier le mot de passe.

A+

 

[marleauc]

Re : mot de passe

bonjour

wow un gros merci a tous...
bon week-end
merci

 

[job75]

Re : mot de passe

Bonjour le fil, le forum,

On aura peut-être remarqué ce qui se passe avec la variable Public MdpAdm.

Après modification du code VBA cette variable est systématiquement vidée ("").

Pour la réinitialiser correctement il faut utiliser Application.OnTime.

Voyez ces macros dans Module1 :

Sub Init()
MdpAdm = "1234"
End Sub

Sub ModifierMacro(texte$)
Dim LigneDebut&
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
  LigneDebut = .ProcBodyLine("Init", 0)
  .DeleteLines LigneDebut + 1, 1
  .InsertLines LigneDebut + 1, texte
  Application.OnTime Now, "Init" 'pour mettre à jour MdpAdm
End With
End Sub

Sub Verif()
'touches Ctrl+M
MsgBox MdpAdm, , "MdpAdm"
End Sub

Fichier (6).

Edit : ah j'oubliais, l'instruction End vide toutes les variables, donc ne pas l'utiliser :

If TextBox1 <> MdpAdm Then Unload Me: Exit Sub 'pas End

A+

 

[marleauc]

Re : mot de passe

un gros merci job75 pour les explication..!!
christian

 

[marleauc]

Re : mot de passe

salut Job 75

penses-tu que cela serait plus facile d'ajouter tout simplement un bouton dans usf_Mdp de la feuille Bigbrother qui nous permettrait de modifier le mot de passe

 

[job75]

Re : mot de passe

Bonjour marleauc, le forum,

penses-tu que cela serait plus facile d'ajouter tout simplement un bouton dans usf_Mdp de la feuille Bigbrother qui nous permettrait de modifier le mot de passe

On fait ce que l'on veut, tout dépend de la portée du mot de passe.

S'il s'agit du mot de passe de l'Administrateur, sa modification doit lui être réservée, il est alors peu souhaitable de montrer à tout le monde qu'on peut le modifier.

Sur votre fichier l'USF peut être ouvert par tout le monde, chaque utilisateur a-t-il son propre mot de passe ?

Si oui il faut évidemment stocker quelque part les différents mots de passe.

A+