Protection d'une feuille

Bonjour,
ceci dans le code de la feuille (attention j'emploie le codename):
'''*****
Private Sub Worksheet_Activate()
Dim strmdp As String
With Feuil2
.Visible = xlSheetHidden
strmdp = InputBox("mot de passe")
If strmdp = "toto" Then
.Visible = xlSheetVisible
Application.EnableEvents = False
.Activate

Else
.Visible = xlSheetVisible
Feuil1.Activate
End If
End With
Application.EnableEvents = True
End Sub
'''*****
'lSteph

"Brat'ac" <Bratac@laporte.net> a écrit dans le message de news:
mn.4ac17d62d32b6c56.9286@laporte.net...

Bonjour,

Protéger une cellule ou une feuille pas de problème,
mais je voudrais protéger une feuille lorsque l'on clique sur son onglet
en bas
c'est à dire à l'ouverture d'un classeur il y a par exemple 3 feuilles,
est-il possible de faire demander un mot de passe sur l'ouverture de la
feuille 2 au clic sur l'onglet ?

Merci de l'aide
GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le
surlendemain par quelqu'un d'autre.
Pierre PERRET

Bonjour,

Une autre :

Dans le module ThisWorkbook

Public ASH$

Private Sub Workbook_Open()
ASH = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Mdp$
If Sh.CodeName = "Feuil2" Then
Mdp = InputBox("Saisir le mot de passe!", "Protection", "Le mot de passe qui va bien")
If Mdp <> "MPFE" Then
Application.EnableEvents = True
Sheets(ASH).Activate
Application.EnableEvents = True
End If
Else
ASH = Sh.Name
End If
End Sub

Alain CROS

"Brat'ac" <Bratac@laporte.net> a écrit dans le message de news: mn.4ac17d62d32b6c56.9286@laporte.net...
| Bonjour,
|
| Protéger une cellule ou une feuille pas de problème,
| mais je voudrais protéger une feuille lorsque l'on clique sur son onglet en bas
| c'est à dire à l'ouverture d'un classeur il y a par exemple 3 feuilles, est-il
| possible de faire demander un mot de passe sur l'ouverture de la feuille 2 au clic
| sur l'onglet ?
|
| Merci de l'aide
| GS
|
| --
| Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
| par quelqu'un d'autre.
| Pierre PERRET
|
|

Alain CROS a émis l'idée suivante :

Ok super ça fonctionne, me reste plus que quelques petits réglages à faire

Merci à vous deux

GS

--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET