Laufzeitfehler '1004'

Hallo Forumgemeinde,

ich möchte bei Excel 2010 Tabelle alle leere Zeilen unterdrücken und anschließend ausdrucken. So habe ich ein Makro geschrieben:

Sub Drucken()

’ Drucken Makro


ActiveSheet.Range("$B$3:blush:J$34").AutoFilter Field:=8, Criteria1:=""
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$B$3:blush:J$34").AutoFilter Field:=8
Range(„B3:J3“).Select
Selection.AutoFilter
End Sub

Das Makro funktioniert auch einwandfrei bei nicht geschütztem Blatt.

Gehe ich aber her und schützte das Blatt (Überprüfen - Blatt schützen - Nicht gesperrte Zellen auswählen) bekomme ich folgende Fehlermeldung:

Laufzeitfehler ‚1004‘:
Dieser Befehl kann für ein geschütztes Blatt nicht verwendet werden. Sie müssen zuerst den Schutz des Blatts aufheben (Registerkarte’Überprüfen’, Gruppe ‚Änderungen‘, Schaltfläche ‚Blattschutz aufheben‘), um diesen Befehl zu verwenden. Sie werdenmöglicherweise aufgefordert, ein Kennwort einzugeben.

Der Button für das Makro ist bei der Spalte K (außerhalb des Druckbereichs = B1 bis J 37 ) hinterlegt.

Kann mir jemand hierzu vielleicht eine kleine Hilfestellung geben.

Vorab schon einmal vielen Dank.

Sorry,
mit Makros kenne ich mich nicht aus.
Gruß
Mike

Hi,

Probier mal

Worksheets(„Dienstplan 2007“).unprotect Password:=„test“

dein Makro

Worksheets(„Dienstplan 2007“).protect Password:=„test“