VBA-geschützte Blätter aktualisieren
12.02.2018 13:34:02
Daniel
ich möchte aus geschützten Blätern ein pdf ausgeben.
das pdf funktioniert schon gut, jedoch müssen die PivoTabellen auf der Seite vor der Ausgabe aktualisiert werden.
folgender Ausdruck ist momentan eingetragen:
Sub PDFBerichtZWZ_Klicken()
Dim ws As Worksheet
Dim pt As PivotTable
Set ws = Worksheets("Serien Beauftragungen pivo")
ws.Unprotect Password:="fingerweg"
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
ws.Protect Password:="fingerweg"
Set ws = Worksheets("auswertung")
ws.Unprotect Password:="fingerweg"
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
ws.Protect Password:="fingerweg"
Set ws = Nothing
Sheets("auswertung").Range("a124:c179").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Range("a11").Value & "_" & Range("e1").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Anzeige