zu Aktualisieren ohne den Schutz aufzuheben ?
(Pivot Tabelle von Blattschutz ausschließen)
Vielen Dank im voraus.
HW
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Viele Grüße
Herby
Um eine Pivot Tabelle in einer geschützten Arbeitsmappe zu aktualisieren, ohne den Blattschutz aufzuheben, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:
Öffne deine Excel-Datei und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Einfügen
> Modul
.Kopiere den folgenden Code in das Modul:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Aktiviere das Arbeitsblatt, um das Makro auszuführen. Die Pivot-Tabelle wird nun aktualisiert, während der Blattschutz aktiv bleibt.
Fehler: "PivotTable1 wurde nicht gefunden."
Fehler: "Blattschutz kann nicht entfernt werden."
Eine andere Möglichkeit, eine Pivot-Tabelle in einer geschützten Arbeitsmappe zu aktualisieren, ist die Verwendung von Excel-Funktionen anstelle von Makros. Du kannst die Datenquelle der Pivot Tabelle so einstellen, dass sie aus einer nicht geschützten Tabelle stammt und die Pivot Tabelle dort aktualisieren.
Ein Beispiel für die Anwendung des Makros:
Wenn deine Pivot Tabelle "UmsatzPivot" heißt, ändere den Code zu:
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
ActiveSheet.PivotTables("UmsatzPivot").PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Stelle sicher, dass du den Namen der Pivot-Tabelle entsprechend anpasst, um Fehler zu vermeiden.
Verwende die Workbook_Open
-Methode, um das Makro automatisch beim Öffnen der Datei auszuführen. Dies kann nützlich sein, wenn du möchtest, dass die Pivot Tabelle immer aktuell ist, sobald die Datei geöffnet wird.
Sicherheitsmaßnahmen: Denke daran, den Blattschutz nicht nur zu aktivieren, sondern auch sicherzustellen, dass nur die notwendigen Benutzer Zugriff auf das Makro haben.
1. Kann ich das Makro auch für mehrere Pivot-Tabellen verwenden?
Ja, du kannst das Makro anpassen, um mehrere Pivot-Tabellen zu aktualisieren, indem du den entsprechenden Code für jede Tabelle hinzufügst.
2. Welche Excel-Version benötige ich für diese Methode?
Die beschriebenen Schritte funktionieren in Excel 2010 und neueren Versionen. Stelle sicher, dass du VBA aktivieren kannst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen