Bonjour Marty et Elo6,
Une variante :
Une macro qui déprotège et reprotège après exécution d'une macro. Le mot de passe ici est trois étoiles ***.
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
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
Message édité par: CBernardT, à: 25/11/2005 11:03