Zellbereich beim Drucken vor Seitenumbruch schütze

Public Sub Automatic_Pagebreaks()
Dim lngIndex As Long, lngBreakRow As Long, lngRow As Long
Dim blnAgain As Boolean
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With Tabelle1
Do
blnAgain = False
For lngIndex = 1 To .HPageBreaks.Count
lngBreakRow = .HPageBreaks(lngIndex).Location.Row
If Not IsEmpty(.Rows(lngBreakRow).Cells(1).Value) Then
lngRow = .Cells(lngBreakRow, 1).End(xlUp).Row
If lngRow = 1 Then
MsgBox "Kann Seitenumbruch nicht erstellen."
Exit Sub
Else
Set .HPageBreaks(lngIndex).Location = .Cells(lngRow, 1).Offset(-1)
blnAgain = True
Exit For
End If
End If
Next
Loop Until Not blnAgain
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub