Password pour un feuillet

3 réponses

Fuentes Mickael

03/07/2006 à 11:51

Bonjour, je cherche une petite macro qui puisse me demander un mot de passe
lorsque j'active le feuillet2 dans excel, si le mot de passe n'est pas bon
il se remet automatiquement sur le feuillet1.
Ca doit etre tout simple mais bon, les macro c'est pas trop mon fort avec
les msgbox.

Mersi d'avance
Micky

3 réponses

Daniel

03/07/2006 à 12:27

Bonjour.
Mets ma macro suivante dans le code de "Feuil2".

Private Sub Worksheet_Activate()
Sheets("Feuil1").Select
Var = InputBox("Entre le mot de passe")
If Var = "toto" Then
Application.EnableEvents = False
Sheets("Feuil2").Select
Application.EnableEvents = True
End If
End Sub

Notes :
- Il faut protéger ton projet pour empêcher l'utilisateur de visualiser les
macros et donc le mot de passe
- Si les macros ne sont pas activées à l'ouverture du classeur, la
protection est inefficace. Il te faut rajouter les macros suivantes dans
"ThisWorkBook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Sheets("Feuil2").Visible = True
End Sub

La première macro cache Feuil2 (elle ne peut être rendue visible que par la
seconde macro). Si les macros ne sont pas activées, la feuille reste cachée.
Cordialement.
Daniel
"Fuentes Mickael" a écrit dans le message de news:

Bonjour, je cherche une petite macro qui puisse me demander un mot de
passe
lorsque j'active le feuillet2 dans excel, si le mot de passe n'est pas bon
il se remet automatiquement sur le feuillet1.
Ca doit etre tout simple mais bon, les macro c'est pas trop mon fort avec
les msgbox.

Mersi d'avance
Micky

Ardus Petus

03/07/2006 à 13:14

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim spwd As String
If Sh.Name = "Feuil2" Then
spwd = InputBox("Entrer le mot de passe")
If spwd <> "password" Then
MsgBox ("Mot de passe invalide")
Sheets("Feuil1").Activate
End If
End If
End Sub

Cordialement,
--
AP

"Fuentes Mickael" a écrit dans le message de news:

Bonjour, je cherche une petite macro qui puisse me demander un mot de
passe
lorsque j'active le feuillet2 dans excel, si le mot de passe n'est pas bon
il se remet automatiquement sur le feuillet1.
Ca doit etre tout simple mais bon, les macro c'est pas trop mon fort avec
les msgbox.

Mersi d'avance
Micky

Fuentes Mickael

03/07/2006 à 14:32

C'est exactement ce que je voulais,
impeccable
Merci

"Daniel" a écrit dans le message de news:
#

Bonjour.
Mets ma macro suivante dans le code de "Feuil2".

Private Sub Worksheet_Activate()
Sheets("Feuil1").Select
Var = InputBox("Entre le mot de passe")
If Var = "toto" Then
Application.EnableEvents = False
Sheets("Feuil2").Select
Application.EnableEvents = True
End If
End Sub

Notes :
- Il faut protéger ton projet pour empêcher l'utilisateur de visualiser
les

macros et donc le mot de passe
- Si les macros ne sont pas activées à l'ouverture du classeur, la
protection est inefficace. Il te faut rajouter les macros suivantes dans
"ThisWorkBook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Sheets("Feuil2").Visible = True
End Sub

La première macro cache Feuil2 (elle ne peut être rendue visible que par
la

seconde macro). Si les macros ne sont pas activées, la feuille reste
cachée.

Cordialement.
Daniel
"Fuentes Mickael" a écrit dans le message de
news:

Bonjour, je cherche une petite macro qui puisse me demander un mot de
passe
lorsque j'active le feuillet2 dans excel, si le mot de passe n'est pas
bon

il se remet automatiquement sur le feuillet1.
Ca doit etre tout simple mais bon, les macro c'est pas trop mon fort
avec

les msgbox.

Mersi d'avance
Micky

Password pour un feuillet

3 réponses

Veuillez sélectionner un problème