Bonjour tout le monde ! j'ai un petit problème si vous pouvez m'aider à le résoudre !
J'ai créer une macro pour protéger et déprotéger mon classeur pour éviter que je déprotège tout mes feuilles une par une.
Cependant, j'ai remarquer que verrouiller un classeur entier n'étais pas compatible avec certaines de mes autres macros.
Du coup, Au lieu de verrouiller tout mon classeur avec un mot de passe, j'aimerai ne protéger que certaines feuilles qui m'intéressent.
Je vous mets mon code en dessous et un fichier exemple :
(Il ne faut pas que cela me protège le classeur)
Merci à tous !
J'ai créer une macro pour protéger et déprotéger mon classeur pour éviter que je déprotège tout mes feuilles une par une.
Cependant, j'ai remarquer que verrouiller un classeur entier n'étais pas compatible avec certaines de mes autres macros.
Du coup, Au lieu de verrouiller tout mon classeur avec un mot de passe, j'aimerai ne protéger que certaines feuilles qui m'intéressent.
Je vous mets mon code en dessous et un fichier exemple :
J'aimerai protéger que les feuille 1 à 3 mais pas les feuille 4 et 5.Sub Pro()
Dim i As Integer
Dim Wb As Workbook
Dim sh As Variant
Set Wb = ActiveWorkbook
sh = Wb.Sheets("Parametres").Range("A1:A3").Value
Application.ScreenUpdating = False
Wb.Protect ("123")
For i = 1 To UBound(sh)
If sh(i, 1) = "" Or sh(i, 1) = 0 Then GoTo S
Sheets(CStr(sh(i, 1))).Protect ("123"), AllowFiltering:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
S:
Next i
Application.ScreenUpdating = True
End Sub
(Il ne faut pas que cela me protège le classeur)
Merci à tous !
Pièces jointes
Dernière édition: