Makro ausführen bei geschützen Zellen

Sub ZeilenEin : Rows(i).Hidden = False
Was kann ich tun, damit das Makro auch ausgeführt wird wenn ein Blatschutz drauf ist? Die Zellen sind schon über Format alle "entsperrt".
Weiß einer Hilfe?
DANKE
Grüße aus Flensburg
Hauke
Hier das Makro in voller Länge:

Sub Dropdown18_BeiÄnderung()
ZeilenEin
ZeilenAus
End Sub



Sub Dropdown19_BeiÄnderung()
ZeilenEin
ZeilenAus
End Sub



Sub ZeilenAus()
Dim LRow As Integer, i As Integer
Dim strRAB As String, strPROD As String
strRAB = "N"
strPROD = "N"
Application.ScreenUpdating = False
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 19 To 48
If Cells(i, 1) = strRAB Or Cells(i, 2) = strPROD Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub



Sub ZeilenEin()
Dim LRow As Integer, i As Integer
Application.ScreenUpdating = False
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 19 To 48
Rows(i).Hidden = False
Next i
Application.ScreenUpdating = True
End Sub