Direkt zum Inhalt

Wie schütze ich die Pivot-Tabelle in Excel?

Wie können wir in Excel die Pivot-Tabelle schützen, um zu verhindern, dass andere Benutzer die Felder ziehen oder das Layout durcheinander bringen? In diesem Artikel werde ich über einige Methoden zum Schutz der Pivot-Tabelle im Arbeitsblatt sprechen.

Pivot-Tabelle mit VBA-Code schützen

Schützen Sie den Drehtisch, aber erlauben Sie den Zugang zum Slicer


Pfeil blau rechte Blase Pivot-Tabelle mit VBA-Code schützen

Der folgende VBA-Code kann Ihnen beim Schutz der Pivot-Tabelle helfen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Pivot-Tabelle schützen

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass die Pivot-Tabelle geschützt wurde. Siehe Screenshot:

doc schützen Pivot-Tabelle 1

Anmerkungen:

1. Dieser Code deaktiviert viele der Funktionen in einer Pivot-Tabelle, z. B. das Verhindern, dass Benutzer eines der Felder an einen anderen Speicherort ziehen, und das Deaktivieren der Feldliste, der Feldeinstellungen, des Drilldowns und der Aktualisierungsfunktion.

2. Wenn das aktive Blatt mehrere Pivot-Tabellen enthält, wird dieser Code nur auf die letzte Pivot-Tabelle angewendet.


Pfeil blau rechte Blase Schützen Sie den Drehtisch, aber erlauben Sie den Zugang zum Slicer

Manchmal möchten Sie vielleicht die Pivot-Tabelle schützen, aber den Zugriff auf den Slicer zum Anwenden der Filterfunktion zulassen. Die folgenden Schritte können Ihnen einen Gefallen tun.

1. Klicken Sie nach dem Einsetzen des Slicers mit der rechten Maustaste darauf und wählen Sie Größe und Eigenschaften Siehe im Kontextmenü Screenshot:

doc schützen Pivot-Tabelle 2

2. In dem Slicer formatieren Bereich, klicken Sie auf Ferienhäuser um die Optionen zu erweitern, und deaktivieren Sie dann Verschlossen Option, siehe Screenshot:

doc schützen Pivot-Tabelle 3

3. Schließen Sie dann den Bereich und klicken Sie auf Bewertung > Schutzblatt Zum Schutz dieses Blattes siehe Screenshot:

doc schützen Pivot-Tabelle 4

4. In der herausgesprungen Schutzblatt Dialogfeld, dann überprüfen Wählen Sie entsperrte Zellen und Verwenden Sie PivotTable & PivotChart Optionen nur in der Erlauben Sie allen Benutzern dieses Arbeitsblatts Listenfeld, geben Sie das Passwort ein und bestätigen Sie es, siehe Screenshot:

doc schützen Pivot-Tabelle 5

5. Dann klick OK Klicken Sie auf die Schaltfläche, um die Dialogfelder zu schließen. Wenn Sie jetzt auf den Pivot-Tabellenbericht klicken und versuchen, ihn zu ändern, wird er nicht geändert. Sie können die Slicer-Funktion jedoch nach Bedarf anwenden.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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