Hallo, ich habe folgendes Problem. Die Tabelle ist Passwort geschützt, daher kann der script die daten nicht aktualisieren.
Gibt es eine Möglichkeit den Passwortschutz auzuheben, die Daten zu aktualisieren und de Passwortschutz wieder zu setzen.
Danke
Private Sub Worksheet_Activate()
Dim Pivo As PivotTable
For Each Pivo In ActiveSheet.PivotTables
Pivo.RefreshTable
Next
End Sub
|