Re : VBA Protégrer plusieurs feuilles par différents mots de passe + mot de passe gén
Bonjour hetanna
Voici un exemple simple ou le code est dans Workbook_Open
Si tu tape 123456789 tu auras toutes les feuilles
Si tu tape 1234 tu auras la feuille1
Private Sub Workbook_Open()
For i = 1 To Sheets.Count - 1
Sheets("Feuil" & i).Visible = False
Next i
moncode = InputBox("Entrez votre code ?")
If moncode = "1234" Then
Sheets("Feuil1").Visible = True
End If
If moncode = "12345" Then
Sheets("Feuil2").Visible = True
End If
If moncode = "123456" Then
Sheets("Feuil3").Visible = True
End If
If moncode = "1234567" Then
Sheets("Feuil4").Visible = True
End If
If moncode = "123456789" Then ''ICI TON CODE PAR EXEMPLE"
For i = 1 To Sheets.Count
Sheets("Feuil" & i).Visible = True
Next i
End If
End Sub
A+