Sur une macro existante, comment autoriser les filtres et le tri ?

Bonjour,

J'ai actuellement une macro qui fonctionne bien mais les personnes utilisant ce fichier ne peuvent pas filtrer ni trier.
pouvez-vous m'éclairer sur l'ajustement à apporter à ma macro existante ?

Par avance, je vous remercie de votre précieuse aide.

Sub motdepassepourtouteslesfeuilles()

Dim Feuille As Worksheet

For Each Feuille In ActiveWorkbook.Worksheets

If Feuille.Range("A1") = "1" Then

Feuille.Protect Password:="12345678", _

DrawingObjects:=True, Contents:=True, Scenarios:=True

End If

Next Feuille

End Sub

Sub enlevermotdepassepourtouteslesfeuilles()

Dim Feuille As Worksheet

For Each Feuille In ActiveWorkbook.Worksheets

If Feuille.Range("A1") = "1" Then

Feuille.Unprotect ("12345678*")

End If

Next Feuille

End Sub

edit moderation : code mis entre balise </> via la barre de menu d'édition du message, merci d'y penser à l'avenir.

Bonjour vmichel,

Vous pouvez le trouver vous même en utilisant l'enregistreur de macros et en effectuant ce que vous souhaitez

Feuille.Protect Password:=12345678", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

A+

Bonjour,

Merci pour l'aide apportée.

Vos infos fonctionnent parfaitement, merci !

Il s'agissait d'un macro créée par une collègue et j'avais testé avec "allowsorting..." mais sans succès.

la bonne position d'un "_ "ou" , " à suffit à bien faire fonctionner la macro,

Merci, merci

Bonne journée