Excel - Macro Bloquear celda

Hola, tengo una inquietud, deseo ingresar una informacion y que su vez en la columna contigua se vaya registrando la fecha y hora exacta en la que se ingresa. Para ello tengo un macro que me ha servido a las mil maravillas, pero quiero agregarle una característica. Deseo que una vez se ingrese la información y pase a la casilla de abajo, ésta quede imposibilitada para modificar la información ya ingresada, es decir, si ingreso informacion en la casilla C1, la fecha y hora se registran en la casilla B1 y todo muy bien. Pero quiero que al pasar a la casilla C2, la casilla C1 no pueda ser modificada y así no ingresar o modificar ninguna información en ninguna de las casillas por las cuales ya se pasó de esta columna. El macro ya desarrollado es el que sigue, pero solo hace el registro de fecha y hora, agradezco cualquier ayuda, quiero prevenir ciertos fraudes, GRACIAS.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dato_ingresado As String
Dim dato_hora As String

On Error Resume Next

If Target.Column = 3 Then
dato_ingresado = Range("C" & ActiveCell.Row - 1)
datohora = Range("B" & ActiveCell.Row - 1)
If datohora = Empty And dato_ingresado <> Empty Then
hora = Format(Now, "dd/mm/yyyy hh:mm:ss AM/PM")
Range("b" & ActiveCell.Row - 1).Value = hora
End If
End If

End Sub

Por ejemplo, suponiendo que tu hoja esta protegida y previamente (obvio) le quitaste el bloqueo a las celdas de las columnas de la A a la F, y quieres que cada vez que se termine de llenar las celdas de esas columnas, de la fila de los cambios, esas celdas se protejan, pues, algo asi serviria:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim fila As String

Application.EnableEvents = False

fila = ActiveCell.Row

If Range("a" + fila) <> "" And Range("b" + fila) <> "" And Range("c" + fila) <> "" And Range("d" + fila) <> "" And Range("e" + fila) <> "" And Range("f" + fila) <> "" Then
ActiveSheet.Unprotect
Range("A" + fila + ":F" + fila).Select
Selection.Locked = True
ActiveSheet.Protect
Application.EnableEvents = True
Exit Sub
End If

Application.EnableEvents = True

End Sub

OJO, te lo dejo de ejemplo, obviamente, tu "empatalo" a lo tuyo.

Abraham

Te dejo un código que alguna vez hice para alguien del foro...

Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Hoja1").Range("A1")
If Target.Address <> .Address Then Exit Sub
If .Value = "Desprotege A3" Then
Call protec(False)
Else
Call protec(True)
End If
End With
End Sub

Private Sub protec(ByVal bFlg As Boolean)
With Worksheets("Hoja1")
.Unprotect cCLAVE
With .Range("A3")
.Locked = bFlg
.FormulaHidden = True
.Interior.ColorIndex = IIf(bFlg, 36, xlNone)
End With
.Protect Password:=cCLAVE, DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

Saludos desde Baires, JuanC

Bien muy interezante la macro pero tengo una duda que formula debo usar para ejecutar esa macro, o como puedo hacer para que funcione.

Bien muy interezante la macro pero tengo una duda que formula debo usar para ejecutar esa macro, o como puedo hacer para que funcione.

Bien muy interezante la macro pero tengo una duda que formula debo usar para ejecutar esa macro, o como puedo hacer para que funcione.

podria por favor indicarme si lograstes resolver el problema, ya que estoy en una situacion igual me contactas por favor