XL 2016 Excel VBA - Filtre Automatique et feuille protégée

CarineDere

XLDnaute Nouveau
Hello,

je suis une grande novice de VBA et me retrouve bloquée :(

Je souhaite, à la fin de ma macro, protéger ma feuille en autorisant plein de choses dont le filtre automatique sur ma feuille.
Pour autant, impossible de filtrer à la fin de l'exécution de la macro, toutes les autres autorisations fonctionnent (Format de colonne/ligne par exemple).

Voici le bout de code juste avant puis le passage à la protection de la feuille :

' Mise à jour de la date de dernier refresh au niveau du fichier en cours
Range("LAST_UPDATE").Value = Now()
Range("OK_CREATION").Value = Now()

With Worksheets("SIMU")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, Password:="FOREVER", UserInterfaceOnly:=True
End With

Impossible de joindre un fichier. Données confidentielles
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Carine,
Qu'entendez vous par Filtrer ?
Si c'est utiliser le filtre automatique, il vous suffit dans la protection de la feuille de cocher l'option Utiliser le filtre automatique :
1.jpg

Voir PJ, MDP 1234
 

Pièces jointes

  • Carine.xlsx
    8.6 KB · Affichages: 10