Office: Feld nach Eingabe sperren

Hallo,

ich habe mal ein wenig rumgesucht, aber nichts passendes zu meinem Problem gefunden.

ich habe ein geschütztes Arbeitsblatt mit gesperrten und nicht gesperrten Bereichen.

Nun möchte ich, das der bereich C1:F15 so behandelt wird, das sobald dort etwas eingetragen wird (irgendetwas) dieses Feld gesperrt wird (um nicht nachträglich etwas zu ändern).

Hat jemand die zueghörigen codes parat?

Grüße und danke

Edit
sowas in der art, nur das ein bestimmter Bereich nur gilt

Sub Worksheet_Change(ByVal Target As Range)
With Target
Me.Unprotect "tessy"
Application.EnableEvents = False
.Locked = True
Application.EnableEvents = True
Me.Protect "tessy"
End With
End Sub

 

Hallo lieber Gomorra,

versuche es hiermit:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim objCell As Range
If Not Intersect(Target, Range("G13:J13")) Is Nothing Then
Me.Protect Password:="tessy", UserInterfaceOnly:=True
For Each objCell In Target
If Not Intersect(objCell, Range("G13:J13")) Is Nothing Then _
objCell.Locked = objCell.Text <> "tessy"
Next
End If
End Sub