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

[CarineDere]

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

 

[sylvanu]

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 :

Voir PJ, MDP 1234

 

[CarineDere]

oui, cette commande s'active par la commande : AllowFiltering:=True
pour autant, impossible de filtrer.
Le code vba est bien écrit? je ne capte pas s'il y a une erreur ou non

 

[sylvanu]

J'ai mi votre code brut de fonderie dans une feuille, et ça marche.
Sorry.

 

[sylvanu]

Bonjour,
Avez vous compris le problème dans votre fichier ?