Vba : Mot de Passe = Caption d'un Texbox ?

[noviceAG]

Bonjour le Forum,
A l’ouverture du classeur, clic sur bouton m’affiche un Usf demandant le mot de passe qui affiche alors les divers boutons de commande (demandé par la personne pour qui je fais ce fichier). Cette même personne ne veut pas que le mot de passe apparaisse « en clair » dans le code Vba ou ailleurs et me dit que c’est possible avec un Texbox en récupérant l’élément caption.

Pouvez-vous me dire si ceci est exact et comment procéder et un fichier exemple serait apprécié.
En vous remerciant par avance.

 

[noviceAG]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Bonsoir Jean-Marcel,
Je te remercie du classeur joint que je vais regarder plus tard
En te souhaitant une bonne soirée

 

[noviceAG]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Re,
Je viens de prendre connaissance du fichier et ce n'est pas exactement ce que je souhaite.
Il semblerait que seul un listbox a un évènement Caption.

Aussi ma question est :
Est-il possible de comparer la saisi dans un Texbox avec le nom (Caption) de la listbox du genre :

si la valeur saisi dans le texbox est identique au nom (caption) de la listbox
Si Ok alors : mon code ....
En te remerciant et te souhaitant une bonne soirée.

 

[Fo_rum]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Salutvices

On peut toujours espérer ... mais le bricoleur, un tant soit peu imaginatif, trouvera toujours !
Pour les novices qui se contentent de regarder ...

 

[Fo_rum]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Re quin quin

tu ne fais pas partie des

... novices qui se contentent de regarder ...

😉

 

[noviceAG]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Bonjour et merci à tous pour votre aide appréciée
en vous souhaitant un bon WE

 

[jp14]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

Bonjour

Ci joint un fichier avec deux macros une pour générer des codes (à modifier), la deuxième pour tester le mot de passe.

Le contrôle du mot de passe se fait par la fonction logique XOR avec un traitement sur mot de 8 bits, en vérifiant si le message chiffré et égal au mot de passe chiffré.
Le mot de passe n'est pas enregistré dans la macro.

Fonction OU exclusif - Wikipédia
"Exemple d'utilisation en cryptographie "

La procédure peut être modifiée pour créer un code, par exemple en utilisant un générateur aléatoire (valeur maxi 255 code sur 8 bits) au lieu d'une addition (10+2*i).

Attention si on n'a pas le mot de passe la boucle est mortelle.

A tester

 

[fhoest]

Re : Vba : Mot de Passe = Caption d'un Texbox ?

bonsoir a tous ,
je pense avoir ce que tu souhaite
voici le code:

'Sauvegarde le contenu des TextBox lors de la fermeture du UserForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SaveSetting "Mes parametres", "TextBox1", "Valeur TextBox1", TextBox1.Value
SaveSetting "Mes parametres", "Textbox2", "Valeur TextBox2", TextBox2.Value
End Sub

 
'Récupère la valeur de la clé lors de l'ouverture du UserForm
Private Sub UserForm_Initialize()
TextBox1.Value = GetSetting("Mes parametres", "TextBox1", "Valeur TextBox1")
TextBox2.Value = GetSetting("Mes parametres", "TextBox2", "Valeur TextBox2")
End Sub

@+