Boa-noite marciobin

A senha para desbloqueio não seria !?

"*****"

Veja se é isso o que deseja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Column = 4 And Target.Row > 10 And Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Target.Offset(0, 1).ClearContents
ElseIf Target.Column = 4 And Target.Row > 10 And Target.Value <> "" Then
With Target.Offset(0, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="A,B"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "ATENÇÃO"
        .InputMessage = ""
        .ErrorMessage = "VÁLIDOS SOMENTE VALORES QUE ESTÁ NO FILTRO !"
        .ShowInput = True
        .ShowError = True
    End With
    End If
End Sub

Fcarlosc , a senha não é essa , mais valew.

xlarruda , Exatamente isso .mais uma vez muito obrigado . Vou adaptar a minha planilha de uso .Vlew.