comment controler le lancement d'une macro ( Mot de passe )

Bonjour infonie

j'ai la même problématique. J'ai mis en fait un bouton "Identification" sur
ma feuille qui doit lancer Ma_macro après identification

En cliquant sur ce bouton, on lance en fait la procédure suivante

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

Tu trouveras dans ce forum plusieurs autres moyens pour sécuriser davantage
le mot de passe

@+

--
Xav
"infonie" <nospam@elvis.fr> a écrit dans le message de
news:cgnh6p$in3$1@news.tiscali.fr...

Bonjour à tous,

J'ai une macro assez importante qui doit être excécutée chaque 25 du mois
( ou le jour le proche si le 25 n'est pas un jour ouvré ). La macro est
lié

avec un userform de confirmation. Comment demander un mot de passe de
confirmation pour lancer la macro. L'ideal serai un emplacement dans le
userform où l'utilisateur pourrai rentrer le mot de passe. Si le mot de
passe est ok, la macro demarre, s'il est incorrect l'userform se ferme
sans

lancer la macro.

Est-ce possible ?

Merci d'avance pour vos réponses

Bonjour,

Ce que tu dis est tout à fait correct. Tu peux mettre une zone de texte dans
la userform (propriété PasswordChar = *). S'il y a un bouton "OK" (par
exemple) le code sera le suivant :

Private Sub cmdOK_Click()
If txtMDP <> "password" Then 'Mettre ici le bon mot de passe
'ou faire
référence à un mot de passe qui est mis dans une variable
MsgBox "Mot de passe incorrect."
Exit Sub
End If

Me.Hide 'Pour masquer la userform

Call MacroDu25 'Exécution de la fameuse macro

Unload Me 'Décharger le userform de la mémoire
End Sub

--
Patrick
"infonie" <nospam@elvis.fr> wrote in message
news:cgnh6p$in3$1@news.tiscali.fr...

Bonjour à tous,

J'ai une macro assez importante qui doit être excécutée chaque 25 du mois
( ou le jour le proche si le 25 n'est pas un jour ouvré ). La macro est
lié

avec un userform de confirmation. Comment demander un mot de passe de
confirmation pour lancer la macro. L'ideal serai un emplacement dans le
userform où l'utilisateur pourrai rentrer le mot de passe. Si le mot de
passe est ok, la macro demarre, s'il est incorrect l'userform se ferme
sans

lancer la macro.

Est-ce possible ?

Merci d'avance pour vos réponses

C'est ok !!!

Merci à tous ça fonctionne super bien et en plus ça fait vraiment très pro !

Amicalement Seb


"Patrick" <nospams_fredin@magic.fr> a écrit dans le message de
news:uACsGbEjEHA.4024@TK2MSFTNGP09.phx.gbl...

Bonjour,

Ce que tu dis est tout à fait correct. Tu peux mettre une zone de texte
dans

la userform (propriété PasswordChar = *). S'il y a un bouton "OK" (par
exemple) le code sera le suivant :

Private Sub cmdOK_Click()
If txtMDP <> "password" Then 'Mettre ici le bon mot de
passe

'ou faire
référence à un mot de passe qui est mis dans une variable
MsgBox "Mot de passe incorrect."
Exit Sub
End If

Me.Hide 'Pour masquer la userform

Call MacroDu25 'Exécution de la fameuse macro

Unload Me 'Décharger le userform de la mémoire
End Sub

--
Patrick
"infonie" <nospam@elvis.fr> wrote in message
news:cgnh6p$in3$1@news.tiscali.fr...

Bonjour à tous,

J'ai une macro assez importante qui doit être excécutée chaque 25 du
mois

( ou le jour le proche si le 25 n'est pas un jour ouvré ). La macro est
lié

avec un userform de confirmation. Comment demander un mot de passe de
confirmation pour lancer la macro. L'ideal serai un emplacement dans le
userform où l'utilisateur pourrai rentrer le mot de passe. Si le mot de
passe est ok, la macro demarre, s'il est incorrect l'userform se ferme
sans

lancer la macro.

Est-ce possible ?

Merci d'avance pour vos réponses