Mot de passe VBA - VB/VBA/VBS - Programmation
Marsh Posté le 19-11-2013 à 14:56:41
Perso, pour protéger un classeur, j'aurais plutôt utilisé la fonction ProtectSharing
Code :
|
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...
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 …
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