Protégér plusieurs feuilles avec macro

[ahu]

Bonjour, je cherche à protéger toutes mes feuilles en laissant la possibilité aux utilisateurs de manipuler les filtres automatiques. Pour protéger touts mes feuilles, j'ai bien la macro:

Sub protection()
' Mise en place du mot de passe sur toutes les feuilles
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="atlantica"
Next
End Sub

Pour résumer j'aimerai bien ajouter l'option AllowFiltering:=True dans ce code, mais je n'y arrive pas.

 

[BERRACHED said]

Re : Protégér plusieurs feuilles avec macro

Salut,ahu

utlise ca :

For Each Sh In ThisWorkbook.Worksheets 
Sh.Protect Password:='', UserInterfaceOnly:=True 
Next Sh

Cordialement

 

[TheLio]

Re : Protégér plusieurs feuilles avec macro

Hello
Tu peux aussi procéder ainsi

Sub Protection()
' Mise en place du mot de passe sur toutes les feuilles
For i = 1 To Sheets.Count
Sheets(i).Protect AllowFiltering:=True, Password:="atlantica"
Next

End Sub

A++
Lio
Edit : Salut Said, pas rafraichi après tél....🙂