Makrobrobleme mit Blattschutz

Ich habe folgendes Makro in meinem Arbeitsblatt:

Private Sub Worksheet_Calculate()

Dim Rng As Range
For Each Rng In Range("d4:d500").Cells
If Rng.Value = "0" Then

Rows(Rng.Row).Hidden = True
End If
Next Rng
End Sub

Des weiteren steht das Arbeitsblatt unter Blattschutz.

Nun gibt es probleme bei Ausführen des Makros, denn der Blattschutz verhindert jegliche Veränderung.

Kann mir jemand sagen, ob ich durch eine Zeile in meinem Makro den Blattschutz temporär aufheben kann?
Er sollte nach der ausführung des Makros wieder aktiv sein.

Vielen Dank im Vorraus