Passer au contenu principal

Comment protéger le tableau croisé dynamique dans Excel?

Dans Excel, comment pourrions-nous protéger le tableau croisé dynamique pour empêcher d'autres utilisateurs de faire glisser les champs ou de gâcher la mise en page? Cet article, je vais parler de certaines méthodes pour protéger le tableau croisé dynamique dans la feuille de calcul.

Protéger le tableau croisé dynamique avec le code VBA

Protégez la table pivotante mais autorisez l'accès à la trancheuse


flèche bleue bulle droite Protéger le tableau croisé dynamique avec le code VBA

Le code VBA suivant peut vous aider à protéger le tableau croisé dynamique, procédez comme suit:

1. Maintenez le 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: protéger le tableau croisé dynamique

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler que le tableau croisé dynamique a été protégé, voir capture d'écran:

doc protéger le tableau croisé dynamique 1

Notes:

1. Ce code désactivera de nombreuses fonctionnalités dans un tableau croisé dynamique, par exemple empêcher les utilisateurs de faire glisser l'un des champs vers un autre emplacement et désactiver la liste des champs, les paramètres de champ, l'exploration vers le bas et la fonctionnalité d'actualisation.

2. S'il existe plusieurs tableaux croisés dynamiques dans la feuille active, ce code n'est appliqué qu'au dernier tableau croisé dynamique.


flèche bleue bulle droite Protégez la table pivotante mais autorisez l'accès à la trancheuse

Parfois, vous souhaiterez peut-être protéger le tableau croisé dynamique, mais en autorisant l'accès au segment pour appliquer la fonction de filtre, les étapes suivantes peuvent vous rendre service.

1. Après avoir inséré le segment, cliquez dessus avec le bouton droit de la souris et choisissez Taille et propriétés depuis le menu contextuel, voir capture d'écran:

doc protéger le tableau croisé dynamique 2

2. Dans le Trancheur de format Cliquez sur propriétés pour développer les options, puis décochez Fermé option, voir capture d'écran:

doc protéger le tableau croisé dynamique 3

3. Fermez ensuite le volet, puis cliquez sur Message(s) > Protéger la feuille pour protéger cette feuille, voir capture d'écran:

doc protéger le tableau croisé dynamique 4

4. Dans le sauté Protéger la feuille boîte de dialogue, puis cochez Sélectionnez les cellules déverrouillées et Utiliser le tableau croisé dynamique et le graphique croisé dynamique options uniquement dans le Autoriser tous les utilisateurs de cette feuille de travail à zone de liste, puis entrez le mot de passe et confirmez-le, voir capture d'écran:

doc protéger le tableau croisé dynamique 5

5. Puis clique OK pour fermer les boîtes de dialogue, et maintenant, lorsque vous cliquez sur le rapport du tableau croisé dynamique et essayez de le modifier, il ne sera pas modifié, mais vous pouvez appliquer la fonction Slicer selon vos besoins.

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

onglet kte 201905


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!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for this tip. My question is, how do I reverse the code and edit the pivot table now?
This comment was minimized by the moderator on the site
For Each xpf In .PageFields
With pf

а где "х" потеряли?))) должно же быть With xpf
This comment was minimized by the moderator on the site
The macro doesn't work it just throws an object error
This comment was minimized by the moderator on the site
Hi, andrew,
The code works well, after applying the code, you will get the prompt box to remind you the pivot table has been protected, and then close it, now, when changing any data in the pivot table, a warning message box will be pop out.
This comment was minimized by the moderator on the site
Does not work. Get a run error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations