OVH Cloud OVH Cloud

Mot de passe

3 réponses
Avatar
lolo
Bonsoir

Voila j'ai ce code :
'___________________________
'atteidre la feuille analyse
'___________________________
Private Sub CommandButton3_Click()
Unload Ouverture
Sheets("analyse").Activate
End Sub

Je voudrais avant l'action qu'une inputbox me demande un mot de passe
si le mot de passe est ok (mdp :toutou)alors il execute le code sinon
il affiche un message d'erreur mot de passe incorrect.

Pouvez vous m'aider

Merci
A+

3 réponses

Avatar
RV
Bonsoir lolo,
Voir file du 29/11/06 à 19h34 avec comme objet "message d'accueil" de Zimou
Bonne soirée
RV

"lolo" a écrit dans le message de news:

Bonsoir

Voila j'ai ce code :
'___________________________
'atteidre la feuille analyse
'___________________________
Private Sub CommandButton3_Click()
Unload Ouverture
Sheets("analyse").Activate
End Sub

Je voudrais avant l'action qu'une inputbox me demande un mot de passe
si le mot de passe est ok (mdp :toutou)alors il execute le code sinon
il affiche un message d'erreur mot de passe incorrect.

Pouvez vous m'aider

Merci
A+



Avatar
Ange Ounis
Par exemple :

Private Sub CommandButton3_Click()
Unload Ouverture
If InputBox("Mot de passe :") <> "toutou" Then
MsgBox "mot de passe incorrect"
Else
Sheets("analyse").Activate
End If
End Sub

----------
Ange Ounis
----------

Bonsoir

Voila j'ai ce code :
'___________________________
'atteidre la feuille analyse
'___________________________
Private Sub CommandButton3_Click()
Unload Ouverture
Sheets("analyse").Activate
End Sub

Je voudrais avant l'action qu'une inputbox me demande un mot de passe
si le mot de passe est ok (mdp :toutou)alors il execute le code sinon
il affiche un message d'erreur mot de passe incorrect.

Pouvez vous m'aider

Merci
A+



Avatar
lolo
Bonsoir à tous

Merci beaucoup pour vos réponses ça fonctionne
parfaitement....Désolé pour la recherche j'y pense jamais..

A+