Hier mein Makro :
Windows("DBM Bowling 2019 Übersicht Startzeiten Delmenhorst.xls").Activate
ActiveWorkbook.SaveAs Filename:= _
"D:\000-dat\EXCEL\BOWLING\DBM\2019 Oldenburg Trio\Startzeiten Delmenhorst 2019.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("Do 15.00h").Select
Range("A1:C2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Do 17.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Fr 10.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Fr 13.00h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Fr 16.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Fr 19.00h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sa 09.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sa 12.00h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sa 15.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Sa 18.00h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("So 08.30h").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Do 15.00h").Select
ActiveWorkbook.Save
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\000-dat\EXCEL\BOWLING\DBM\2019 Oldenburg Trio\Startzeiten Delmenhorst 2019.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWindow.Close
End Sub
Es wäre toll, wenn mir jemand helfen könnte. DANKE im Voraus