Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

[loul03]

Bonjour,

Je rencontre des difficultés pour n'utiliser que la cellule filtre d'un TCD dans une feuille protégée par mot de passe.

J'arrive à le faire sans mot de passe, mais des que j'ajoute le mot de passe à la macro, la cellule n'est plus accessible

Voilà la macro que j'ai faite:

ActiveSheet.Unprotect "motdepasse"
ActiveSheet.Unprotect
Range("B6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect "motdepasse"

Sauriez vous m'aider svp?

D'avance je vous en remercie vivement
loul

 

[chris]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

Bonjour

Avec un protect ayant la mention AllowUsingPivotTables:=True chez moi cela permet de filtrer le TCD sans problème

 

[loul03]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

Bonjour,

merci pour cette réponse.

Mais je ne comprends pas dans mon document (en PJ) je n'arrive pas à le faire malgré cette fonction.

d'avance merci
😕 🙂

 

[chris]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

Bonjour

Ton document est verrouillé et sans VBA (et donc sans le mot de passe) on ne peut rien faire.

 

[loul03]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

Oups désolée!! le mot de passe c'est Karine
et la macro faite est celle indiquée dans mon tout premier message.

merci de ton aide! c'est sympa de ta part!

 

[chris]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

Bonjour

   ActiveSheet.Protect Password:= "Karine", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
       AllowUsingPivotTables:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

marche.
Ton code semble protéger 2 fois, la seconde sans paramètres...

 

[loul03]

Re : Utiliser le filtre d'un TCD dans une feuille protégée avec mot de passe

un grand merci pour ton aide! ça marche nikel!!
bonne journée