Bonjour à tous

mon problème pour vous va être simple, j'ai 8 onglets avec des noms différents.
saurait-il possible de mettre en protection chaque onglet avec des mots de passe différent par onglets mais que les autres personnes puisse travailler uniquement sur les cellules non protéger

car en ce moment j'ai trouvé cette formule mais on peut quand même "ôter la Protection" sans mot de passe et si je met un mot de passe par onglet il me bloque tout

Pouvez-vous m'aider Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
 
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
Next I
 
End Sub