Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher
l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click()
Dim mot_de_passe As String
Dim texte As String
mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification")
If UCase(mot_de_passe) = "TOTO" Then
call Ma_Macro
Else
texte = MsgBox("Identification incorrecte", vbCritical)
End If
End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une
personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran.
Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
cette question est pour le moins gauloise, infonie jps (descendant direct de vercingétorix)
"infonie" a écrit dans le message de news:cks37h$mou$
Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
michdenis
Bonjour Infonie,
Utilise un formulaire :
2 contrôles :
1 textbox avec la propriété "PasswordChar" = *
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas à donner le bon mot de passe. Ce bouton exécutera le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" a écrit dans le message de news:cks37h$mou$ Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click() Dim mot_de_passe As String Dim texte As String mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification") If UCase(mot_de_passe) = "TOTO" Then call Ma_Macro Else texte = MsgBox("Identification incorrecte", vbCritical) End If End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran. Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
Merci d'avance pour votre aide
Bonjour Infonie,
Utilise un formulaire :
2 contrôles :
1 textbox avec la propriété "PasswordChar" = *
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas à donner le bon mot de passe. Ce bouton exécutera
le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" <lesinfos@infonie.fr> a écrit dans le message de news:cks37h$mou$1@news.tiscali.fr...
Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher
l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click()
Dim mot_de_passe As String
Dim texte As String
mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification")
If UCase(mot_de_passe) = "TOTO" Then
call Ma_Macro
Else
texte = MsgBox("Identification incorrecte", vbCritical)
End If
End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une
personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran.
Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas à donner le bon mot de passe. Ce bouton exécutera le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" a écrit dans le message de news:cks37h$mou$ Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click() Dim mot_de_passe As String Dim texte As String mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification") If UCase(mot_de_passe) = "TOTO" Then call Ma_Macro Else texte = MsgBox("Identification incorrecte", vbCritical) End If End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran. Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
Merci d'avance pour votre aide
GD
sabatier typed:
cette question est pour le moins gauloise, infonie jps (descendant direct de vercingétorix)
Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
Dis Jean-paul ??? une chance qu'il n'ai pas oublié le x , on aurait eu des doutes sur tes origines ;o)))
Nb: a-propos pourquoi cacher les Asterxxxxxxx http://www.nirsoft.net/utils/asterie.html
cette question est pour le moins gauloise, infonie jps (descendant direct de vercingétorix)
Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
Dis Jean-paul ??? une chance qu'il n'ai pas oublié le x , on aurait eu des doutes sur tes origines ;o)))
Nb: a-propos pourquoi cacher les Asterxxxxxxx http://www.nirsoft.net/utils/asterie.html
infonie
Désolé je comprends pas tout, j'ai oublié de dire que mon niveau n'était pas celui d'un utilisateur averti ;-)
Je sais que ce n'est peut être pas évident pour vous mais si vous pouviez simplifier un peu, j'ai du mal à suivre...
Merci
"michdenis" a écrit dans le message de news:
Bonjour Infonie,
Utilise un formulaire :
2 contrôles :
1 textbox avec la propriété "PasswordChar" = *
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas à donner le bon mot de passe. Ce bouton exécutera le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" a écrit dans le message de news:cks37h$mou$ Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click() Dim mot_de_passe As String Dim texte As String mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification") If UCase(mot_de_passe) = "TOTO" Then call Ma_Macro Else texte = MsgBox("Identification incorrecte", vbCritical) End If End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran. Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
Merci d'avance pour votre aide
Désolé je comprends pas tout, j'ai oublié de dire que mon niveau n'était pas
celui d'un utilisateur averti ;-)
Je sais que ce n'est peut être pas évident pour vous mais si vous pouviez
simplifier un peu, j'ai du mal à suivre...
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ORZr8m8sEHA.3200@TK2MSFTNGP14.phx.gbl...
Bonjour Infonie,
Utilise un formulaire :
2 contrôles :
1 textbox avec la propriété "PasswordChar" = *
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas
à donner le bon mot de passe. Ce bouton exécutera
le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module
standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" <lesinfos@infonie.fr> a écrit dans le message de
news:cks37h$mou$1@news.tiscali.fr...
Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour
empecher
l'affichage d'une certaine partie d'un fichier. Voilà la macro en question
:
Private Sub Identification_Click()
Dim mot_de_passe As String
Dim texte As String
mot_de_passe = InputBox("Veuillez entrer le mot de passe",
"Identification")
If UCase(mot_de_passe) = "TOTO" Then
call Ma_Macro
Else
texte = MsgBox("Identification incorrecte", vbCritical)
End If
End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais
d'une
personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à
l'écran.
Je voudrait donc savoir si l'on peut remplacer l'affichage par des
astérix.
Désolé je comprends pas tout, j'ai oublié de dire que mon niveau n'était pas celui d'un utilisateur averti ;-)
Je sais que ce n'est peut être pas évident pour vous mais si vous pouviez simplifier un peu, j'ai du mal à suivre...
Merci
"michdenis" a écrit dans le message de news:
Bonjour Infonie,
Utilise un formulaire :
2 contrôles :
1 textbox avec la propriété "PasswordChar" = *
1 Bouton de commande pour fermer le formulaire si l'usager ne réussit pas à donner le bon mot de passe. Ce bouton exécutera le code que tu veux dans ce cas.
Tu affiches dans une fenêtre modale à l'aide d'une macro dans un module standard, le formulaire au moment opportun
Userform.Show
Salutations!
"infonie" a écrit dans le message de news:cks37h$mou$ Bonjour à tous,
Voilà j'utilise depuis quelque temps une macro " mot de passe" pour empecher l'affichage d'une certaine partie d'un fichier. Voilà la macro en question :
Private Sub Identification_Click() Dim mot_de_passe As String Dim texte As String mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Identification") If UCase(mot_de_passe) = "TOTO" Then call Ma_Macro Else texte = MsgBox("Identification incorrecte", vbCritical) End If End Sub
Tout d'abord je tiens à préciser que cette macro n'est pas de moi mais d'une personne qui fréquente régulièrement le forum ;-)
Le problème de cette macro c'est que le mot de passe est affiché à l'écran. Je voudrait donc savoir si l'on peut remplacer l'affichage par des astérix.
