Protection par VBA different onglet
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:
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 |
