Mot de passe VBA

Mot de passe VBA - VB/VBA/VBS - Programmation

Marsh Posté le 19-11-2013 à 14:45:20    

Bonjour,
Je suis entrain de faire un logiciel de gestion de compte bancaire sous Excel, en VBA.
A la première ouverture, l'utilisateur a la possibilité de créer un mot de passe via un UserForm afin de protéger ses données lors des prochaines ouvertures.
Ce mot de passe est stocké dans une variable MDP de type String.
Le but étant que lorsqu'il ré-ouvrira le classeur, un UserForm s'affiche lui demandant le mot de passe.
Mais comme le classeur a été refermé la variable MDP est nulle et donc je ne peux la comparer avec le mot de passe saisi lors de la seconde ouverture du logiciel...
Comment procéder pour conserver la valeur de MDP crée la première fois pour les ouvertures suivantes ?
 
j'espère avoir été clair...  :)  
 
Par avance, merci pour votre aide !
 
Code du UserForm "Mot de passe"
 
Private Sub UserForm_Initialize()
CheckBox1 = False
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    TextBox1.PasswordChar = "*"
    TextBox2.PasswordChar = "*"
End If
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Value <> TextBox2.Value Then
    MsgBox "Les mots ne sont pas identiques"
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox1.SetFocus
    Else
    MDP = TextBox1.Value
    TextBox1.Value = ""
    TextBox2.Value = ""
    UserForm4_MDP.Hide
End If
End Sub

Reply

Marsh Posté le 19-11-2013 à 14:45:20   

Reply

Marsh Posté le 19-11-2013 à 14:56:41    

Perso, pour protéger un classeur, j'aurais plutôt utilisé la fonction ProtectSharing
 

Code :
  1. ActiveWorkbook.ProtectSharing(Password:=[pwd de lecture],WriteResPassword:=[pwd d'écriture])
  2. ActiveWorkbook.save()

Reply

Marsh Posté le 19-11-2013 à 15:04:22    

Merci pour ta réponse réponse rapide !
Je peux aussi intégrer ce que tu me proposes à mon UserForm...
Je test si cela convient à ce que je recherche et je te tiens au courant !
 
Si d'autres utilisateurs ont d'autres idées...

Reply

Marsh Posté le 19-11-2013 à 15:52:31    

 
           Bonjour,
 
           peu importe les idées car Excel a plus de trous (de sécurité) qu'un Emmental suisse ‼
 
           J'ai même vu une quiche sous Excel en suivant un tuto sur le net déprotéger un classeur en moins de cinq minutes …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed