Re : Mot de passe différents pour chaque onglet
Salut,
il y a eu un post récemment dessus avec ces macros :
Tu dois coller cela dans "Thisworkbook"
Private Sub Workbook_Open()
Dim mdp As String, w As Worksheet, flag As Boolean
1 mdp = InputBox("Entrez votre mot de passe", "Mot de passe")
If mdp = "" Then Exit Sub 'ou Me.Close
For Each w In Worksheets
If mdp = "Toto" Or w.[A1] = mdp Then w.Visible = True: flag = True 'Toto = mot de passe administrateur
Next
If Not flag Then GoTo 1
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Worksheet
For I = 1 To Sheets.Count
Sheets(I).Protect Password:="****", DrawingObjects:=False, Contents:=True, Scenarios:=False
Next
Sheets("Accueil").Visible = True
For Each w In Worksheets
If w.Name <> "Accueil" Then w.Visible = xlVeryHidden
Next
Me.Save
End Sub
Tu dois créer une feuille "Accueil". Quand tu ouvriras tu auras la fenêtre qui demande le code dans cette feuille.
Le mot de passe administrateur ouvre tous les onglets.
Pour les autres onglets, ils s'ouvrent selon le mot que tu écris dans chaque cellules A1 des onglets (sauf de la feuille Accueil).
exemple : Pour aaaa en A1 dans la feuil1 et 3 et bbbb an A1 dans la feuil2.
Quand tu ouvriras ton doc, si tu entres aaaa, la feuil1 et 3 uniquement s'ouvriront.
ciao
