Code in ungeschützte und geschützte Blätter implementieren VBA Excel

Question

Wenn ich versuche, diesen Code auszuführen, führt er nur den Teil nach Exit Sub aus, nur die foreach-Schleife wird ausgeführt, wenn das Blatt nicht geschützt ist. Ich denke, es ist durch die Exit Sub verursacht. Mein Problem ist, dass ich verschiedene Codes ausführen möchte, wenn das Blatt geschützt ist (for each cell in Range("B6:B112..)) und das andere (beginnend mit Dim rng as Range ..) wenn das Blatt ungeschützt ist. Ich habe versucht If..Then..Else, aber das funktioniert nicht.

Private Sub Worksheet_Change(ByVal Target As Range) 
If Worksheets("test").ProtectContents Then Exit Sub 

For Each cell In Range("B6:B112") 
If cell.Value <> "" Then 
cell.EntireRow.Hidden = False 
Else 
cell.EntireRow.Hidden = True 
End If 
Next cell 

Dim rng As Range 
Dim eingabeNr As Double, letzteZeile As Long, eingabeDatum As String, eingabeNrString As String 
Set rng = Range("D:BC") 

THX.

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 
If Worksheets("test").ProtectContents = True Then 'added = true for readability. 

    For Each cell In Range("B6:B112") 
     If cell.Value <> "" Then 
      cell.EntireRow.Hidden = False 
     Else 
      cell.EntireRow.Hidden = True 
     End If 
    Next cell 
Else 
    Dim rng As Range 
    Dim eingabeNr As Double, letzteZeile As Long, eingabeDatum As String,_ 
    eingabeNrString As String 
    Set rng = Range("D:BC") 

    Do some stuff here 

End if