|
Hallo liebe Experten!
Ich sitze an einer recht umfangreichen Exceltabelle die mehrere Leute benützen werden. Dementsprechend soll möglichst viele Blätter geschützt werden. Integriert ist auch ein Berichtswesen, dass auf Pivot basiert (mehrere verschiedene Tabellenblätter).
Ich möchte mit einem Knopfdruck alle Pivots aktualisieren.
Auf diese weise funktionierts:
Sub NurPivotAktualisieren()
Dim pivotTable As pivotTable
For Each pivotTable In ActiveSheet.PivotTables
pivotTable.RefreshTable
Next
Worksheets(ActiveSheet.Name).Calculate
End Sub
Nun ist es so, dass ich anscheinend die Pivots nicht aktualisieren kann, wenn das Blatt geschützt ist.
Aktuell ist meine Lösung derart, dass ich die Pivotblätter nicht schütze - was unbefriedigend ist. Meine Idee ist, dass ich mit dem Makro die Blätter erst entsperre, dann berechne, und dann wieder sperre. Das übersteigt leider meine Fähigkeiten ....
Hat von euch jemand eine Lösung?
Liebe Grüße und danke im Voraus,
Christof
|