Exécuter macro sur plusieurs feuilles

Bonjour,

Je travaille actuellement sur 10 fichiers qui comportent chacun 52 feuilles de calcul que je souhaite protéger.

Je suis novice dans l'utilisation des macro!

J'ai réussi à trouver une macro pour protéger en passant par un raccourci clavier ce qui me fait gagner énormément de temps mais l'idéal serait que je rajoute à ce code une mention pour qu'il s’exécute sur toutes les feuilles du classeur.

J'ai trouvé plusieurs solutions sur le net mais soit je tombe sur des codes que je ne comprend pas du tout soit ils ne fonctionnent pas...

"Sub Macro3()

'

' Macro3 Macro

'

' Touche de raccourci du clavier: Ctrl+Shift+N

'

ActiveSheet.Protect Password:="AC123", DrawingObjects:=False, Contents:=True, Scenarios:= _

False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _

AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

End Sub"

Pourriez vous m'aider ?

Merci d'avance!!

Bonjour,

le fichier doit avoir été sauvegardé et nommée donc une fois avant tout et puis ceci devrait aller

Option Explicit

Sub Macro3()
Dim i As Integer
For i = 1 To Sheets.Count ' protège les feuilles de 1 à xxx
   Sheets(i).Protect Password:="AC123", DrawingObjects:=False, Contents:=True, Scenarios:= _
                     False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                     AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
Next
End Sub

Merci pour votre réponse, ça fonctionne!

Vous venez de me faire gagner 1 journée!!