Check Box para Proteger/Desproteger Folha

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: