Boa tarde!!

Se eu entendi bem.....

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Target.Count > 1 Then Exit Sub
     'Efeito das células bloqueadas
    If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        
        If OldValue = "" Then
            Target.Value = NewValue
        ElseIf InputBox("enter password") = "pwd" Then
            Target.Value = NewValue
        Else: MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
            Target.Value = OldValue
        End If
        Application.EnableEvents = True
    End If
End Sub

Se não estou enganado algo assim foi postado em Dez/2011
Att