Unprotect Problemchen
Matthias
folgendes Makro hat bevor ich die sheets 1 -12 nicht geschützt habe funktioniert.
Es müsste der Blattschutz dieser Sheets aufgehoben werden, wie muss ich das hier einbauen, so
wie es jetzt ist meldet er : Objekt erforderlich
Fettgedruckte Zeile = Fehlerzeile
Sub drucke_Monataktuell_3U()
Select Case ActiveSheet.Name
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
ActiveSheet.Name.Unprotect 'Objekt erforderlich
Cells.EntireRow.Hidden = False
ActiveSheet.PageSetup.PrintArea = "A4:Aj56"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Case Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Drucke den Bereich
End Select
Range("A3").Select
ActiveSheet.Name.Protect
End Sub
Danke vorab fürs Grübeln u. Lösen,Gruß Matthias