Bom dia!!

Tente isso..

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim NewValue As Variant, OldValue As Variant 
    If Target.Count > 1 Then Exit Sub 
     'Altere o intervalo de acordo com sua necessidade A1:F100
    If Not Intersect(Target, Range("A1:F100")) Is Nothing Then 
        NewValue = Target.Value 
        Application.EnableEvents = False 
        Application.Undo 
        OldValue = Target.Value 
        If OldValue <> "" Then 
            MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas" 
            Target.Value = OldValue 
        Else 
            Target.Value = NewValue 
        End If 
        Application.EnableEvents = True 
    End If 
End Sub