Comment désactiver la sélection de plusieurs éléments dans le tableau croisé dynamique?
Lorsque nous créons un tableau croisé dynamique et définissons l'option d'éléments filtrés, mais que vous ne voulez pas que d'autres appliquent la fonctionnalité Sélectionner plusieurs éléments dans le tableau croisé dynamique pour perturber les données d'origine de votre tableau croisé dynamique. Dans cet article, je vais expliquer comment désactiver cette option dans le tableau croisé dynamique.
Désactiver la sélection de plusieurs éléments dans le tableau croisé dynamique avec le code VBA
Désactiver la sélection de plusieurs éléments dans le tableau croisé dynamique avec le code VBA
Pour protéger la sélection du tableau croisé dynamique contre la modification, le code VBA suivant peut vous aider à désactiver la fonctionnalité Sélectionner plusieurs éléments. Veuillez procéder comme suit:
1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.
Code VBA: désactiver la sélection de plusieurs éléments dans le tableau croisé dynamique
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. Puis appuyez F5 clé pour exécuter ce code, et les boutons fléchés de filtre dans le tableau croisé dynamique ont été supprimés à la fois, voir les captures d'écran:
 |
 |
 |
Notes:
1. Si vous souhaitez réactiver l'option Sélectionner plusieurs éléments, veuillez appliquer le code suivant:
Code VBA: Activez la sélection de plusieurs éléments dans le tableau croisé dynamique:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. Ce code n'est appliqué qu'à un seul tableau croisé dynamique de la feuille de calcul active.
Articles Liés:
Comment masquer les boutons de réduction dans le tableau croisé dynamique?
Comment masquer les sous-totaux dans le tableau croisé dynamique?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
