Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2005-05-21
Para protegermos uma folha sem termos que recorrer a Ferramentas|Protecção|Proteger Folha, podemos utilizar uma Check Box e associá-la a um pouco de código, de modo a que, ao clicarmos nela, a folha fique protegida ou desprotegida.

Vejamos o resultado, em primeiro lugar:





Passemos agora ao desenvolvimento:
Criar a Check Box:



Depois de criarmos a Check Box, vamos associá-la com o seguinte Código:

Sub ProtegeSheet1()
'   Protege/Desprotege Folha
    If Sheets("Sheet1").CheckBoxes("cbProtectSheet").Value = xlOn Then
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True
    Else
        ActiveSheet.Unprotect
    End If
End Sub


Exemplo para efectuar a associação: