Macro pour enlever les filtres sur toutes les colonnes, sur un fichier protégé

[rom3210]

Bonjour,

Malgré plusieurs tentatives, je me retrouve toujours bloqué.

J'ai créée un fichier Excel qui verrouille automatiquement l'ensemble des feuilles à la fermeture.
Et, j'ai ajouté sur ma feuille 1, la possibilité aux utilisateurs d'utiliser le filtre et insérer des lignes.

Cela fonctionne :

-----
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("ma feuille 1").Protect Password:="toto", AllowInsertingRows:=True, AllowFiltering:=True
Sheets("ma feuille 2"").Protect Password:="toto"
Sheets("ma feuille 3"").Protect Password:="toto"
End Sub
-----

Par contre, j'ai voulu créer une macro pour enlever l'ensemble des filtres sur toutes les colonnes (pour éviter d'enlever les filtres, colonne par colonne), sur ma feuille 1.

Autant sur un fichier non protégé cela fonctionne, autant là, j'ai une erreur lorsqu'il est protégé. Pourtant, j'ai bien ajouté "AllowFiltering:=True" sur la feuille en question dans ThisWorbook...

Voilà la macro en question :

-----
Sub Enlever_tri()
'
' Macro qui permet d'enlever les filtres et se positionne sur la dernière ligne automatiquement
'
Range(Columns(1), Columns(Cells(1, Columns.Count).End(xlToLeft).Column)).Select
Selection.AutoFilter
Selection.AutoFilter
Range("A65536").End(xlUp).Offset(-1, 0).Select

End Sub
-----

Merci d'avance,
rom3210

 

[M12]

Re : Macro pour enlever les filtres sur toutes les colonnes, sur un fichier protégé

Re,

Il faut déjà déprotéger ta feuille
oter le filtre
reprotéger ta feuille

Sub sanstri()
Sheets("ma feuille 1").Unprotect Password:="toto"
Selection.AutoFilter
Sheets("ma feuille 1").Protect Password:="toto", AllowInsertingRows:=True, AllowFiltering:=True
End Sub