Autoprotejer celda al ingresar un dato

hola, Efrain !

... es posible protejer de forma automatica una celda o un grupo de celdas
... al momento de que estas ya contengan un valor o un dato
... para que posteriormente no sea posible cambiarlos o borrarlos
... a menos que se tenga que desbloquear.

el siguiente ejemplo 'asume' que 'la hoja' YA esta protegida [con clave]
y hay algunas celdas 'modificables' [o desbloqueadas antes de protegerla]
como 'tendras que' manejar la clave de la hoja por codigo [aunque en realidad es 'opcional']...
[sobra mencionar que 'tendras que' proteger tambien el proyecto vba] :))
=> toma nota que 'perderas' el beneficio del des-hacer... undo... ctrl+z :-(

si cualquier duda... o el mecanismo de proteccion que tenias pensado es diferente... comentas?
saludos,
hector.
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
Dim Celda As Range
For Each Celda In Target
If Not IsEmpty(Celda) Then _
Me.Unprotect "ClaVeX": Celda.Locked = True: Me.Protect "ClaVeX"
Next
End Sub