VBA aktualisierung passwort geschützter Blätter
12.02.2018 12:16:50
Daniel
Gesamtes VBA gestaltet sich wie foglt:
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("Serien Beauftragungen pivo")
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