Usf Password

[MuscatMimi]

Bonjour a tout le Forum

J'ai un Usf pour entrer un Mot de passe,pour ouvrir
mon classeur
Le Mot de passe est enregistré dans le code
Il y a t'il une possibilité de le noter dans une Cellule
au lieu que dans le code, si oui, comment faire???

Merci par avance

Cordialement

 

[kjin]

Re : Usf Password

Bonjour christian,
Je ne ferais pas l'injure de te demander si tu as lu la charte...😀
Peux tu faire passer ton fichier avec juste le formulaire, ça évitera de le recréer
A+
kjin

 

[MuscatMimi]

Re : Usf Password

Bonjour Kjin

la chartre??, elle a changé!!! savait pas , je vais la lire

Bon voici le fichier
A noter que cet usf Mot de Passe est de Thierry

Cordialement

 

[Guest]

Re : Usf Password

Bonjour,

Vaucluse Immo: si au bout 1028 message tu n'as pas la moindre idée de comment faire, je me pose des questions sur l'utilité réelle du forum?

A+

 

[MuscatMimi]

Re : Usf Password

Bonjour Hasco

je suis ok avec toi, je le reconnais
Depuis plus de 1 an je n'arrive plus a assimiler,au lieu de progresser je régresse, ce doit être l'âge
Si ça continu, je vais arrêter, de bricoler des appli en vba
Bonne journée

 

[kjin]

Re : Usf Password

Re, salut Hasco 🙂,

Vaucluse Immo: si au bout 1028 message tu n'as pas la moindre idée de comment faire, je me pose des questions sur l'utilité réelle du forum?

Je suis évidemment d'accord...
Je ne me prononcerais pas sur le pourcentage de question du genre sur le forum, ou que la question a déjà été traitée 1000 fois, ou que la réponse soit dans l'aide vba tout simplement,...quand la réponse n'est pas contenue dans la question elle-même !
Pour la question, encore une fois, ça manquait de précision !
J'ai demandé un fichier pensant que le mdp pouvait être issu d'une liste ou qu'il y avait une subtilité...et ça n'est point le cas !

Private Sub CommandButton1_Click()
If Me.TextBox1 = Sheets("Feuil1").range("A1") Then
'....

A+
kjin

 

[MuscatMimi]

Re : Usf Password

Re Kjin

merci de ta réponse

en fait j'avais mis Sheets("Feuil1").range("A1")

mais j'ai oublié Then a la fin
c'est pour cela que ça ne fonctionnait pas
Milles excuses pour ce fil créé,pour rien, a cause de cette erreur
de ma part

Cordialement