Légère sécurité

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é" <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!
>
>