Re : (De)Proteger plusieurs feuilles sélectionnées en même temps (Sujet Résolu)
Après de nombreuses recherches sur le net, et en particulier sur les forums, je viens de trouvé ce que je cherche sur cette page:
Feuilles, copier renommer insérer
J'ai trouvé ce code pour faire ce que je voulais. après adaptation ça marche .
++++++++++++++++++++++++++++++++++++++
'Autre manipulation d'un groupe défini de feuilles
'Déprotection de feuilles
Groupe = Array("Feuil1", "Feuil2", "Feuil3")
for each Feuille in sheets(Groupe)
Feuille.unprotect ("chat")
next Feuille
Sheets(Groupe).select
++++++++++++++++++++++++++++++++++++++
Code adapté à mon classeur :
Sub AaaSectFeuille()
'
' AaaSectFeuille Macro
'
motpass = "++++"
Groupe = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
"16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")
Application.ScreenUpdating = False
For Each Feuille In Sheets(Groupe)
Feuille.Unprotect motpass
Next Feuille
Sheets(Groupe).Select
Range("A6 : D6").Select
End Sub
En vous remerciant pour vos réponses
cordialement jeje77