Protection Filtre TCD

Bonjour,

Je cherche de l’aide concernant la protection d’un TCD.

En fait je désire protéger (bloquer) le filtre du rapport, mais permettre aux utilisateurs d’accéder à la partie du fichier qui concerne les données filtrées (c à d en faisant un double clic sur le total édition automatique d’une feuille reprenant les éléments filtrés) afin qu’ils les exploitent à leur tour s’ils le désirent.

Je suis en galère merci d’ avance pour votre aide.

Désolée pour les envois précédents, c'est la première fois que je m'inscrit dans un forum.

Bonsoir,

essaie avec ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Macro Dan Demi Lune - le 15/11/2010
On Error Resume Next
Cancel = Not Target.PivotTable Is Nothing
End Sub

Pour placer le code, clique droite sur l'onglet où se trouve le TCD puis choisir "visualiser le code".

Dans la fenêtre, coller le code ci-avant.

Amicalement

Bonjour Dan

Merci je vais essayer dès aujourd'hui.

A bientôt

re,

Ok. N'oublie pas de cloture le fil si ta demande est terminée.... clique sur le V vert.

Re bonjour,

J'ai essayé à plusieurs reprise la macro :

Sub Essai()

'

' Essai Macro

'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

'Macro Dan Demi Lune - le 15/11/2010

On Error Resume Next

Cancel = Not Target.PivotTable Is Nothing

End Sub

Cela me met erreur de compilation End Sub attendu

Si je commence à Private Sub je ne trouve plus la Macro

Que faire ?

Je suis une béotienne en la matière, je crois que j'ai besoin de plus amples explications.

Merci de ton aide

re,

Cela me met erreur de compilation End Sub attendu

Qu'est ce vient faire ceci dans ton code ???

Sub Essai()
'
' Essai Macro
'

Ce n'est pas ce que je t'ai donné avant. Colle mon code convenablement et au bon endroit comme expliqué.

A te relire

Re,

Désolée de te déranger à nouveau, cette fois ci j'ai bien collé ton code ni + ni -

Dans l'onglet clic droit : Visualiser le code.

Mais ensuite lorsque je protège ma feuille avec seulement la première ligne : Filtre verrouillée

Tout le TCD est toujours protégé.

Je dois te sembler nulle mais quelque chose m'échappe encore

J'ai essayé de cocher différentes options dans protéger la feuille mais rien n'y fait

A te lire Merci

Re,

Mais ensuite lorsque je protège ma feuille avec seulement la première ligne : Filtre verrouillée

Tout le TCD est toujours protégé.

Pas trop compris là.

Merci de mettre le fichier en ligne ce sera plus facile.

Amicalement

Bonsoir,

Je ne peux pas mettre mon tableau en ligne il s'agit de données confidentielles.

Je m'explique à nouveau, j'ai fait :

Sélection de la feuille, Format de Cellule, Onglet Protection décoché Vérrouillee

Ensuite j'ai sélectionné la première ligne de la feuille ou se trouve le filtre du rapport TCD

et j'ai fait Format de Cellule, Onglet Protection Re Coché Vérrouillee

Enfin j'ai protégé la feuille.

Et c'est là que ton code doit intervenir mais je ne sais pas ce qu'il manque pour que cela agisse

et que seul le filtre soit protéger comme je l'avais expliqué la première fois.

J'espère avoir été plus claire et que tu vas pouvoir m'aider,

Cela me sauverai merci d'avance

re,

Déso, je pense avoir mal lu la question.

Ce qui est souhaité c'est interdire de cliquer sur le filtre du TCD ?

Au fait, ne clique sur le V vert que si le fil est complètement résolu.

Amicalement

Re,

Oui c'est ce que je souhaite.

As-tu une solution ?

A quoi sert le code que tu m'as donné ?

A +

re,

Lol ! ne pas cliquer sur le V vert à chaque fois mais uniquement si le fil est résolu. Tu n'as pas lu la charte du forum, je pense...

Dans un TCD lorsque l'on double clique sur un montant, ce double clique crée une nouvelle feuille qui reprend toutes les données se rapportant à ce montant. Le code proposé évite cette action en cas de double clique dans le TCD

Ensuite j'ai sélectionné la première ligne de la feuille ou se trouve le filtre du rapport TCD

et j'ai fait Format de Cellule, Onglet Protection Re Coché Vérrouillee

Enfin j'ai protégé la feuille.

Comme cela effectivement le TCD n'est plus accessible. Donc il ne faut pas protéger la feuille.

Je n'ai pas pu essayer ce code sur mon ordi mais à voir si cela fonctionne avec excel 2003

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables(1).EnableFieldList = False
End Sub

Le code est à placer dans la feuille du TCD à la place de l'autre donné ci-avant. Il sera exécuté à l'activation de la feuille.

Pour revenir en arrière il faudra remettre le FALSE à TRUE

Re,

J'ai placé le code à la place de l'autre

mais rien ne se passe : Feuille protégée TCD inaccessible

Feuille non protégée Filtre non protégé

"Il sera exécuté à l'activation de la feuille"

Est-ce-que cliquer sur l'onglet de la feuille signifit activation de la feuille?

Que dois-je faire?

Au fait à la maison j'ai Excel 2007

et au travail 2010, bien que j'ai l'impression qu'il bug un peu je ne vais pas me plaindre

il y a 2 mois je n'avait que 2000

Merci encore de ton aide

Cordialement

re,

Le TCD sera toujours inaccessible dans ta feuille protégée.

Est-ce-que cliquer sur l'onglet de la feuille signifit activation de la feuille?

Oui. Une fois la feuille déprotégée, clique sur un autre onglet puis reviens sur celui où se trouve le TCD.

A te relire

Bonjour,

En ce cas j'ai bien fait tout comme tu me l'as dit et cela ne fonctionne pas.

Je ne sais plus quoi faire. C'est l'angoisse.

Le filtre du TCD n'est toujours pas bloqué

Help

A te lire

re,

Essaie avec ce code ci :

Private Sub Worksheet_Activate()
'Macro Dan le 18/11/2010
dim n as byte
n=2 'n= nombre de filtre à cacher
ActiveSheet.PivotTables(1).rowfields(n).EnableItemSelection= false
End Sub

Code à placer dans la feuille contenant le TCD. clique droite sur l'onglet puis choisir "visualiser le code" et coller le code ci-avant dans la fenêtre.

Enregistre le fichier, clique sur un autre onglet puis clique sur l'onglet du TCD.

Amicalement

Bonsoir,

J'ai fait ce que tu m'as dit et rien ne se passe.

j'ai l'impression que je ne m'en sortirai jamais.

J'aimerais tellement t'envoyer un message positif.

Merci pour tes efforts

Amicalement

-- 18 Nov 2010, 07:50 --

Bonjour,

Rectification plus tard en voulant aller dans le générateur de Macro,

pour traduire les termes avec la touche F1.

Je n'ai pu y accéder : erreur 168 (une histoire avec active X je ne me rapelle plus exactement).

Bonne journée

A+

Bonsoir,

Je n'ai plus de nouvelles, cherches-tu encore la solution à mon problème?

Merci de me répondre.

Amicalement

re,

Il faut vérifier si les macros sont bien activées.

Sinon fais un fichier test et mets y le code comme expliqué avant. Vérifie ensuite que cela fonctionne.

Dans le cas contraire, mets le fichier test en ligne. Je regarderai de mon coté

Amicalement

Bonjour,

Voici les fichiers test, il s'agit de protéger le filtre réseau,

A te lire

Cordialement