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