Filtre Auto & Sheet Protection !

[Janot95]

Filtre Auto & Sheet Protection !

Bonjour à Tous & Toutes...

Quelqu'un a-t-il trouvé un jour la solution pour pouvoir utiliser la fonction "Filtre Automatique" lorsque qu'une feuille est protégée ?
Attention, en tenant compte du fait que dans les colones à "Filtrer",
j'utilise les fonctions de "Listes Déroulantes" & des "Plages" de cellules dans une autre page.

D'avance, Merci.
@+Janot95

 

[Bruno]

Re: Filtre Auto & Sheet Protection !

Bonjour Janot95

Il suffit de mettre ce code avant l'ouverture de la feuille :
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False '

Et à la fermeture celui-ci:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '

Cela doit fonctionner

Bonne fêtes à tous.....

 

[EetF]

Re: Filtre Auto & Sheet Protection !

Bonjour

cette macro permet d'utiliser les filtres tout en gardant la protect des celulles

Private sub machinchose ()
feuil1.enableautofilter = true
Feuil1.protect contents = true,userinterfaceonly = true
end sub

soit à affecter à un bouton
soit tu le mets dans Thisworkbook
bonne prog
E et F