Pour protéger une feuille à l'ouverture c'est ok je pense
Private Sub Workbook_Open()
With Feuil1
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
End with
endsub
Mais pour protéger plusieurs feuilles? cela ne marche pas le code ci-dessous ?
Merci
With Array(Feuil11, Feuil111, Feuil13, Feuil131, Feuil15, Feuil17, Feuil181, Feuil19, Feuil20, Feuil211, Feuil22, Feuil221, Feuil24, Feuil26, Feuil27, Feuil29, Feuil3, Feuil5, Feuil71, Feuil9, Feuil31, Feuil35, Feuil37, Feuil39, Feuil41, Feuil45, Feuil47, Feuil49, Feuil51, Feuil53)
Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
End with
End sub