Zellen sperren nach Eingabe

Hallo zusammen!
Im Forum habe ich fast alles gefunden, wonach ich gesucht habe. Allerdings ist eine Frage noch offen geblieben und ich hoffe, dass mir jemand helfen kann. Also:
Ich habe eine Datei, in der Werte eingeben werden. Diese sollen nachträglich nicht mehr geändert werden dürfen. Um das zu bewerkstelligen, habe ich folgenden Code eingefügt:
Sub Blattschutz_Eingabe()
'sobald ein Wert in eine beliebige Zelle eingegeben wurde, wird diese gesperrt
'Ausnahme: "0" kann geändert werden
Dim Zelle As Object
On Error Resume Next
With ActiveSheet
.Unprotect
.Cells.Locked = False
For Each Zelle In .UsedRange
If Zelle <> 0 Then Zelle.Locked = True
Next Zelle
.Protect
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Call Blattschutz_Eingabe
End Sub