Zellschutz für Formeln / Herbers CD

aus Herbers CD habe ich folgendes Makro, das bei Formeln die Zellen schützt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next rng
End Sub

Nun habe ich folgendes Problem:
bei dieser Formel funktioniert der Schutz nicht:
=SUMMEWENN(D4:D42;">0";D4:D42)

Wenn ich eine Formel "=Summe..." anwende, funktioniert der Schutz. Wer kann helfen?

Besten Dank!

mfg
Erich