Validação em Sheets Ativa

[mrfg2000]

Olá amigos

Estou tentando Validar se uma planilha esta protegida ou não ... mas o argumento que estou usando não esta dando certo.

A lógica é a seguinte ... se a Guia (Sheets) ativa estiver Protegida então faça isso , caso contrario aquilo.

Tentei usar

Sub Validar()

If activesheet.protect = true then

faça isso .........

else

faça aquilo .....

end if

end sub

Mas não esta dando certo ....

Antecipo agradecimentos a todos ... aproveitanto para mandar um forte abraço a todos amigos. essa site é excelente ....

[Durutti_Black]

mrfg2000

Embora não funcione a 100% eu costumo usar este programa

Sub test()
On Error Resume Next
If ActiveSheet.Unprotect Then
   Exit Sub
Else
   'coloque aqui o que pretende
End If
End Sub

Se a sheet estiver protegida use sempre o botão ok para inserir a password em branco

[mrfg2000]

ok . agradeço pela ajuda ... deu certinho.