wksht.Protect Password:=" Senha "
Next wsheet
End Sub

18. Desproteger todas as planilhas

Este código é simplesmente o contrário do anterior, ele tem a função de
desproteger todas as planilhas.

Obs: Substituir os valores de exemplo em negrito pelos valores desejados.

Sub UnrotectSheets()
Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets
wksht.Unrotect Password:=" Senha "
Next wsheet
End Sub

19. Proteger uma aba com senha

Macro de controle de acesso para acessar uma aba específica.

Obs1: A variável AbaControle é a que se deseja proteger com senha.
Obs2: Senha é o valor que deverá ser estabelecido como regra de acesso.
Obs2: Ancora é a aba que será selecionada, caso o usuário erre a senha.
Obs4: O código precisa ser inserido dentro do objeto Workbook para
declaração “SheetActivate”, de modo a ser executado junto com a abertura do
arquivo, conforme imagem abaixo: