Crypter mot de passe

[shinobi68]

Bonjour,

J'utilise une fonction inputbox qui me permet d'accéder à 2 feuilles cachées.

Par contre, au moment où je rentre le mot de passe dans cette box, pour accéder à ces feuilles, je souhaite que celui ne soit pas visible en clair.

Comment puis je faire ?

Merci pour votre aide !

 

[Staple1600]

Re : Crypter mot de passe

Bonjour

Comment puis je faire ?

Regarder les fils de discussions déjà existants à ce sujet sur XLD

Pour cela : le moteur de recherche du forum

Voila par exemple ce que tu aurais pu trouvé
https://www.excel-downloads.com/threads/mot-de-passe-crypte.79101/

 

[DL_13]

Re : Crypter mot de passe

Bonjour,

Sujet maintes fois abordé

Fait une recherche sur Password ou mot de passe tu devrait pouvoir y trouver ton bonheur

Je sais que Didier mDF à fait une appli sur ce sujet mais impossible de mettre la main dessus😱

Jette un œil sur ce fichier s'il peut être utile fait à la va vite et facilement perfectible

Edition: Salut Jean Marie... le froid me fait enfler les doigts... et le clavier😛 Pourvu que cela ne dure pas...

Bonne Journée

 

[Staple1600]

Re : Crypter mot de passe

Bonjour Dl_13


C'est quoi un sujet ma ? (lol)

 

[shinobi68]

Re : Crypter mot de passe

Grand merci à DL_13 et tous les autres.......j'ai enfin ce qu'il me faut et j'ai bien saisi ce mécanisme.
Ce forum est littéralement génial !

A bientôt chers tous !

 

[shinobi68]

Re : Crypter mot de passe

Juste encore une question....dans le fichier fourni par DL_13....à quel endroit puis je modifier le message Bonjour Shinobi ainsi que le mot de passe ?
Je débute, en tout cas merci pour votre aide.

 

[Staple1600]

Re : Crypter mot de passe

Re


DL_13

Je sais que Didier mDF à fait une appli sur ce sujet mais impossible de mettre la main dessus

Tu la trouveras dans le lien que j'ai mis plus bas 😉
EDITON: pour t'éviter d'aller en bas
voici directement Lien supprimé vers le fichier

 

[DL_13]

Re : Crypter mot de passe

Re le Fil,🙂

Private Sub CommandButton1_Click()
    If UserForm1.TextBox1 <> "toto" Then ' <---- ICI question 1: Remplacer toto par ce que tu veux
    Me.Hide
    MsgBox "Mot de Passse Invalide"
    With UserForm1
        .TextBox1.Value = ""
        .TextBox1.SetFocus
        .Show
        Exit Sub
    End With
    Else
        Sheets("Feuil2").Visible = True
        Sheets("Feuil3").Visible = True
        Unload Me
        MsgBox "Bonjour " & Application.UserName ' <----ICI  Question 2: Remplacer Application.Username (Touche F1 pour plus de  renseignements) par éventuellement "Toto" ou carrément supprimer cette  ligne... elle est facultative
    End If

End Sub

Private Sub UserForm_Activate()
   Me.TextBox1.PasswordChar = "*"
End Sub

1ère remarque: Pense à protéger ton code même si cela est illusoire
Autre remarque: Si on n'activent pas les macros le code reste inopérant.

​

@JM Quelle Mémoire!!! 🙂🙂🙂 ou quelle base de données!!!! 🙂🙂🙂 j'ai effectivement cherché avec "MDf passe", "Password MDf", et autres termes se rapportant au sus-nommé, mais ... y'en a des posts 😛

Merci pour cette recherche éclairé🙂

Bonne Journée

 

[shinobi68]

Re : Crypter mot de passe

Merci pour le code......mais comment se fait il que je ne le trouve pas dans le fichier shinobi68.xlsm ?
Ce code est il masqué ?

 

[Staple1600]

Re : Crypter mot de passe

Bonsoir


Le code est bien là

Mais dans le UserForm1 pas dans un module standard.

 

[shinobi68]

Re : Crypter mot de passe

Oupsss....c'est tout bon...j'ai trouvé...merci pour votre aide !

 

[DL_13]

Re : Crypter mot de passe

Bonsoir le fil

mais comment se fait il que je ne le trouve pas dans le fichier shinobi68.xlsm ?
Ce code est il masqué ?

Heu!!!! 😕
Peux tu répéter la question!!! quel fichier 🙄

 

[Staple1600]

Re : Crypter mot de passe

Re

Peux tu répéter la question!!! quel fichier

Celui-la
Lien supprimé

Il venait de chez toi DL_13

Ps: Décidemment aujourd'hui, on dirait qu'XLD est entré dans la Twilight Zone 😉

 

[DL_13]

Re : Crypter mot de passe

Re le fil

Tu me fais peur JM🙂 ...je déteste cette série 🙂 🙂 🙂... cette porte, cet œil, cette musique....brrrrrrrrr.. 😉 😱 🙄 et toi tu me l'envoi en pleine face 😀 ... vive les Bisounours 😛 😱


EDIT... je blague...j'adore cette série... la quatrième dimension 🙂...pas les bisounours 😛
Bonne Soirée

 

[Staple1600]

Re : Crypter mot de passe

Re

On ne doit pas être de la même génération 😉

Je parlais évidemment de la version originale (celle des année 60)
[video=youtube;-b5aW08ivHU]http://youtu.be/-b5aW08ivHU[/video]