Comment actualiser le tableau croisé dynamique sur une feuille protégée?
Normalement, le tableau croisé dynamique n'est pas actualisé sur une feuille protégée, cet article, je vais vous présenter un code VBA pour actualiser le tableau croisé dynamique à partir d'une feuille de calcul protégée.
Actualiser le tableau croisé dynamique sur une feuille protégée avec le code VBA
Actualiser le tableau croisé dynamique sur une feuille protégée avec le code VBA
Par défaut, il n'existe aucun moyen direct d'actualiser le tableau croisé dynamique sur une feuille protégée, mais, avec le code VBA suivant, vous pouvez actualiser rapidement tous les tableaux croisés dynamiques de la feuille de calcul actuelle lorsque les données changent dans votre tableau d'origine.
1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: Actualiser le tableau croisé dynamique sur la feuille protégée:
Sub RefreshAll()
'Updateby Extendoffice 20161109
Dim xpt As PivotTable
With ActiveSheet
.Protect UserInterfaceOnly:=True
For Each xpt In .PivotTables
xpt.RefreshTable
Next xpt
End With
End Sub
3. Et puis appuyez sur F5 clé pour exécuter ce code, si vos données d'origine changent, tous les tableaux croisés dynamiques de la feuille active seront actualisés en même temps.
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!
