Gerer mots de passe

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
bonjour
je voudrais changer mes mots de passe qui sont dans la feuille "P"
avec l'userform
le premier mot de passe est "toto"
j'arrive a l'initialiser mais pas a enregistrer en changeant 1,2 ou 3 valeurs si besoin
merci de votre aide
https://www.cjoint.com/?3ABaTupJl1x
a bientôt

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    j'arrive a l'initialiser mais pas a enregistrer en changeant 1,2 ou 3 valeurs si besoin Pas tres clair!!!!!

    Pour changer infos password et noms:

    Private Sub CommandButton2_Click()
      flg_enr_ret = True
      With Sheets("P")
        '--- Transfert Formulaire dans P
        .Range("L" & papass & "").Value = TextBox2.Value
        .Range("M" & papass & "").Value = TextBox3.Value
      End With
      MsgBox "Mot de passe changé"
      Me.ComboBox1 = ""
      Me.TextBox3 = ""
      Me.TextBox2 = ""
      flg_enr_ret = False
    End Sub


    Bon courage
    0
    1. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      bonjour
      j'arrive a l'initialiser mais pas a enregistrer en changeant 1,2 ou 3 valeurs si besoin Pas tres clair!!!!!
      je voulais pouvoir changer les 3 valeurs mais je pense pas possible
      ca marque erreur de compilation et me met en bleu "papass'
      et si je déclare "Dim papass"
      ça marque erreur d'exécution 1004 erreur définie par l'application ou par l'objet
      une idée
      merci
      0
    2. surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      bonjour
      autant pour moi Ca marche dans le fichier que j'ai déposé donc je dois l'adapter a l'original
      merci encore
      bon dimanche
      0