Para bloquear uma célula a planilha deve estar protegida.
A coluna 3 deve ter as células desbloqueadas para edição conforme seu código e insira o seguinte:
Proteger:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True,
AllowUsingPivotTables:= _
True
Desproteger:
ActiveSheet.Unprotect
Claro que pode adicionar uma senha para essa proteção:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True,
AllowUsingPivotTables:= _
True, _
Password:="senha"
Desproteja a planilha antes de fazer as alterações e Proteja no final de sua função.
Ideal criar uma função em separado para Proteger e Desproteger, algo assim:
Function proteger(byVal senha As String Optional)
ActiveSheet.Protect _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingColumns:=True, _
AllowFormattingCells:=True, _
AllowFormattingRows:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True, _
AllowSorting:=False, _
Password:=senha
'### Opções de Seleção de Células ###
'ActiveSheet.EnableSelection = xlUnlockedCells
'ActiveSheet.EnableSelection = xlNoSelection
'ActiveSheet.EnableSelection = xlNoRestrictions
End Function
e
Function desproteger(ByVal senha As String Optional)
ActiveSheet.Unprotect
End Function
Seu código ficaria:
Private Sub Worksheet_Change(ByVal Alvo As Range)
Dim limite_maximo As Integer
limite_maximo = 1000 ' limite ultima linha
If Alvo.Cells.Count > 1 Or IsEmpty(Alvo) Then Exit Sub
' faz nada se mais de uma célula modificada ou se deu delete
If Alvo.Column = 3 And Alvo.Row >= 2 And Alvo.Row <= limite_maximo Then
' o if acima seta onde vai iniciar e o range c = 3 (coluna), row (linha = 2)
' desliga captura do evento change
Application.EnableEvents = False
' muda a célula C da linha correspondente
' Desprotege
desproteger
Alvo.Offset(0, -1).Value = Time() ' Registra a hora (A = 0, D = 3)
Alvo.Offset(0, -2).Value = Date ' Registra a data (A = 0, E = 4)
Alvo.Offset(0, -1).Locked = True ' aqui devia bloquear
Alvo.Offset(0, -2).Locked = True ' aqui devia bloquear
' Protege
proteger
' religa a captura de eventos
Application.EnableEvents = True
End If
End Sub
Espero ter ajudado!