Macro Déprotection feuillets

Re : Macro Déprotection feuillets

Bonjour,

oui, exemple avec ActiveSheet ou Sheets(?)

ActiveSheet.Protect Password:="MotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect ("MotDePasse")

Re : Macro Déprotection feuillets

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub

Re : Macro Déprotection feuillets

MERCI !!

J'ai bien réussi à créer un bouton-macro pour protéger les feuillets....mais il me sort une erreur pour la déprotection...("erreur 1004")

J'avais mis ceci :

Sub Button23_Click()

Sheets("1").Unprotect Password:="X", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("2").Unprotect Password:="X", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Re : Macro Déprotection feuillets

Merci à vous 2...