Password pour accés feuil

3 réponses

Manu

30/06/2006 à 15:09

Bonjour,

Je souhaiterais lorsque je cliquerai sur mon bouton de macro qui aura pour
but d'acceder à une feuille masquer, qu'il me demande un mot de passe pour
que la macro se lance. avez-vous une idée ?

Manu

3 réponses

Laurent

30/06/2006 à 15:21

Salut,

Tu peux insérer au début de ta macro l'ouverture d'une boite de dialogue
permettant la saisie du mot de passe et tester ensuite la valeur saisie.
Parfait si tu veux écrire le mot de passe en dur dans la macro.

Par exemple (la variable mess a été déclarée au préalable), si ton mot de
passe est toto :

mess = InputBox("Entrez le mot de passe")
If mess <> "toto" Then Exit Sub

Laurent

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

Bonjour,

Je souhaiterais lorsque je cliquerai sur mon bouton de macro qui aura pour
but d'acceder à une feuille masquer, qu'il me demande un mot de passe pour
que la macro se lance. avez-vous une idée ?

Manu

papou

30/06/2006 à 15:24

Bonjour
Code à placer dans le code du bouton (issu de la boîte à outils Contrôles):
Private Sub CommandButton1_Click()
Dim ZeMot$
ZeMot = Application.InputBox("Pot de masse s'iou plaît !", , , , , , , 2)
On Error GoTo yaounproblema
Worksheets("Feuil2").Unprotect ZeMot
Exit Sub

yaounproblema:
MsgBox "M'enfin ! c'est pas ça du tout !", vbExclamation, "Pas bon"
End Sub

Cordialement
Pascal

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

Bonjour,

Je souhaiterais lorsque je cliquerai sur mon bouton de macro qui aura pour
but d'acceder à une feuille masquer, qu'il me demande un mot de passe pour
que la macro se lance. avez-vous une idée ?

Manu

Manu

30/06/2006 à 16:09

Inpec, je vous remercie,

"Laurent" a écrit dans le message de news:
44a5255b$0$866$

Salut,

Tu peux insérer au début de ta macro l'ouverture d'une boite de dialogue
permettant la saisie du mot de passe et tester ensuite la valeur saisie.
Parfait si tu veux écrire le mot de passe en dur dans la macro.

Par exemple (la variable mess a été déclarée au préalable), si ton mot de
passe est toto :

mess = InputBox("Entrez le mot de passe")
If mess <> "toto" Then Exit Sub

Laurent

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

Bonjour,

Je souhaiterais lorsque je cliquerai sur mon bouton de macro qui aura
pour

but d'acceder à une feuille masquer, qu'il me demande un mot de passe
pour

que la macro se lance. avez-vous une idée ?

Manu

Password pour accés feuil

3 réponses

Veuillez sélectionner un problème