Bonsoir Jean Pierre
La macro suivante déprotège une feuille avec le mot de passe "***", puis réalise la macro fonctionnelle éventuelle et enfin la reprotège avec le même mot de passe. Ainsi de suite avec toutes les feuilles.
Sub DeproMacroRepro()
Dim i As Byte
'Passer les feuilles les unes après les autres
For i = 1 To Sheets.Count
Sheets(i).Activate
' Deprotection de la feuille active, le mot de passe est "pass"
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="***"
End With
'
'Mettre ici la commande de la Macro de saisie !
'
' Reprotection de la feuille active
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With
Next i
End Sub
Cordialement
Bernard