Pelo que pude estudar até agora, toda Seleção Faz parte do Objeto Range e este objeto possui um Atributo chamado "Locked" Cujo valor pode ser Verdadeiro ou Falso True/False Então basta avaliar o Valor neste atributo.
Set Rng = Range("H1")
If Rng.Locked = True Then
MsgBox ("Sim")
Else
MsgBox ("Não")
End If
Eu presumo que seja isso. Boa Sorte
Postado : 22/04/2014 11:53 am