Bonjour à tous,
Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais
qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure.
Donc une question et la réponse dans une variable afin que je la vérifie avec
un If.
Merci tous!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
chpa
Voici une petite procédure a mettre sur le click du bouton : ps : le mot de passe est MONPASS
Private Sub Command0_Click() Dim leMp As Variant leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "") If UCase(leMp) <> "MONPASS" Then MsgBox "Accès non autorisé" Exit Sub End If 'Si on arrive ici, c'est OK MsgBox "ok" End Sub
"André" a écrit dans le message de news:
Bonjour à tous, Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure. Donc une question et la réponse dans une variable afin que je la vérifie avec un If. Merci tous!
Voici une petite procédure a mettre sur le click du bouton :
ps : le mot de passe est MONPASS
Private Sub Command0_Click()
Dim leMp As Variant
leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "")
If UCase(leMp) <> "MONPASS" Then
MsgBox "Accès non autorisé"
Exit Sub
End If
'Si on arrive ici, c'est OK
MsgBox "ok"
End Sub
"André" <Andr@discussions.microsoft.com> a écrit dans le message de
news:FFD74553-9805-40A9-AE64-BD1E6A735C81@microsoft.com...
Bonjour à tous,
Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais
qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure.
Donc une question et la réponse dans une variable afin que je la vérifie
avec
un If.
Merci tous!
Voici une petite procédure a mettre sur le click du bouton : ps : le mot de passe est MONPASS
Private Sub Command0_Click() Dim leMp As Variant leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "") If UCase(leMp) <> "MONPASS" Then MsgBox "Accès non autorisé" Exit Sub End If 'Si on arrive ici, c'est OK MsgBox "ok" End Sub
"André" a écrit dans le message de news:
Bonjour à tous, Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure. Donc une question et la réponse dans une variable afin que je la vérifie avec un If. Merci tous!
André
Merci beaucoup chpa, c'est exactement cette procédure que je cherchais. Merci encore.
"chpa" a écrit :
Voici une petite procédure a mettre sur le click du bouton : ps : le mot de passe est MONPASS
Private Sub Command0_Click() Dim leMp As Variant leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "") If UCase(leMp) <> "MONPASS" Then MsgBox "Accès non autorisé" Exit Sub End If 'Si on arrive ici, c'est OK MsgBox "ok" End Sub
"André" a écrit dans le message de news: > Bonjour à tous, > Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais > qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure. > Donc une question et la réponse dans une variable afin que je la vérifie > avec > un If. > Merci tous! > >
Merci beaucoup chpa, c'est exactement cette procédure que je cherchais.
Merci encore.
"chpa" a écrit :
Voici une petite procédure a mettre sur le click du bouton :
ps : le mot de passe est MONPASS
Private Sub Command0_Click()
Dim leMp As Variant
leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "")
If UCase(leMp) <> "MONPASS" Then
MsgBox "Accès non autorisé"
Exit Sub
End If
'Si on arrive ici, c'est OK
MsgBox "ok"
End Sub
"André" <Andr@discussions.microsoft.com> a écrit dans le message de
news:FFD74553-9805-40A9-AE64-BD1E6A735C81@microsoft.com...
> Bonjour à tous,
> Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais
> qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure.
> Donc une question et la réponse dans une variable afin que je la vérifie
> avec
> un If.
> Merci tous!
>
>
Merci beaucoup chpa, c'est exactement cette procédure que je cherchais. Merci encore.
"chpa" a écrit :
Voici une petite procédure a mettre sur le click du bouton : ps : le mot de passe est MONPASS
Private Sub Command0_Click() Dim leMp As Variant leMp = Nz(InputBox("Mot de passe ?", "Control", ""), "") If UCase(leMp) <> "MONPASS" Then MsgBox "Accès non autorisé" Exit Sub End If 'Si on arrive ici, c'est OK MsgBox "ok" End Sub
"André" a écrit dans le message de news: > Bonjour à tous, > Pour une très légère sécurité lorsque je clique sur un bouton j'aimerais > qu'on me demande d'entrer un mot de passe avant d'exécuter une procédure. > Donc une question et la réponse dans une variable afin que je la vérifie > avec > un If. > Merci tous! > >