Olá Segalla!

Para fazer isso, creio que somente através de VBA.

Experimente colar o código abaixo no módulo da planilha, se você tiver conhecimentos em VBA.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Range("A1") = "" Then
        Exit Sub
        Else
        Range("B1").Value = Now()
        End If
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Static Addr As String
    
    If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
        If Range("A1") = "" Then Exit Sub
        Application.Goto Range(Addr)
        MsgBox "Não é possível alterar a célula!"
    End If
    
    Addr = ActiveCell.Address
    
End Sub

Obrigado Issamu

Deu certo. Agora é só adaptar o código para a planilha toda!

Abraços

Estou com um probleminha nesse For... Qdo executo, informa que existe um Next sem For...

For i = 1 To 100
If Range("A" & i) = "" Then
Exit Sub
Else
Application.Goto Plan1.Range(Addr)
MsgBox "Não é possível alterar a célula!"
Addr = ActiveCell.Address
Next

Pessoal, preciso fazer esse código para uma planilha que continuará a ser alimentada. Como faço??

Desculpem, mas não entendo bem de VBA...aliás, não lembro de VBA, fazem uns 10..15 anos que não escrevo uma linha de código!! rsrs