feuille protéger, autoriser filtre

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2015

• #2

Re : feuille protéger, autoriser filtre

Bonjour christina99.

Regardez dans l'aide les paramètres de protect :
allowwFiltering
True permet à l'utilisateur de définir des filtres dans la feuille de calcul protégée. Les utilisateurs peuvent changer des critères de filtre, mais ils ne peuvent ni activer, ni désactiver un filtre automatique. Ils peuvent définir des filtres dans un filtre automatique

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #3

Re : feuille protéger, autoriser filtre

Bonsoir Patrick,Christina

à essayer.

"Protection"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowFiltering:=True
"Déprotection"
ActiveSheet.Unprotect


A+

René

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Décembre 2015

• #4

Re : feuille protéger, autoriser filtre

Bonjour à tous,

Peux-tu essayer avec cette syntaxe:

VB:

Range("S12").Locked = True
ActiveSheet.Protect

Un fichier serait le bienvenu si cela ne correspond pas.

A+ à tous

 

Vote positif 0 Vote négatif

C

christina99

XLDnaute Nouveau

• 4 Décembre 2015

• #5

Re : feuille protéger, autoriser filtre

Bonjour Victor,

Mon problème n'est pas la protection de la feuille. Si j'ai fait actualiser par le button d'Excel, tout fonction comme j'ai indiqué lors de ma protection.
Mais, si j'appuie sur mon button macro pour actualiser (voir image) aucun filtre n'est plus disponible.

Mes capacités d'écrire des codes en VBA sont limites.
Merci

 

Vote positif 0 Vote négatif

C

christina99

XLDnaute Nouveau

• 4 Décembre 2015

• #6

Re : feuille protéger, autoriser filtre

Bonsoir René,
J’ai intégré votre proposition comme suit :

Sub actualiser()
ScreenUpdating = False
ActiveSheet.Unprotect "lime12"
'
' actualiser Macro

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

ActiveWorkbook.RefreshAll
ActiveSheet.Protect "lime12"



End Sub

quand j'actualise par le bouton macro un message impossible de modifier PivoTable dans une feuille protégé.

Merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2015

• #7

Re : feuille protéger, autoriser filtre

Re,

christina99 à dit:

[...]Mes capacités d'écrire des codes en VBA sont limites.

Cliquez pour agrandir...

Quid de celles à joindre un fichier Excel en illustration (pas plus difficile, mais bien plus pratique qu'une image, aussi jolie soit-elle 🙂

Edit : Bonjour, lézamis 🙂

 

Dernière édition: 4 Décembre 2015

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 4 Décembre 2015

• #8

Re : feuille protéger, autoriser filtre

Bonsoir JCGL,lézamis😉

Pour moi, taper uniquement:

Sub actualiser()
ScreenUpdating = False
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub

A+

René

 

Vote positif 0 Vote négatif

C

christina99

XLDnaute Nouveau

• 4 Décembre 2015

• #9

Re : feuille protéger, autoriser filtre

Merci beaucoup René!

J'ai adapté votre solution et sa marche.

Sub actualiser()
ScreenUpdating = False
ActiveSheet.Unprotect "lime21"
ActiveWorkbook.RefreshAll
ActiveSheet.Protect "lime21", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

Merci encore une fois.

 

Vote positif 0 Vote négatif