Bloqueo Automatico

hola, Marco !

Como hago para que una vez introduzca un valor (el que sea) dentro de una celda
esta quede bloqueada automaticamente contra cualquier adulteracion o correccion?

suponiendo que la hoja donde necesitas esta constante proteccion ya la has protegido
y todas las celdas que se habran de poder digitar las has dejado desbloqueadas previamente -?-
prueba con el siguiente procedimiento en el modulo de codigo de "esa" hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' por si las dudas '
Target.Locked = True
Me.EnableSelection = xlUnlockedCells
End Sub

si te guardaste algun detalle "en el tintero" ?... (ya lo comentaras en tu proximo mensaje ?)
o sea... si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.