Proteger e Desproteger todas as planilhas - Método 1

Para aqueles que precisam bloquear e desbloquear todas as planilhas de uma só vez, existem algumas opções, entre elas esta a opção abaixo.
Criar um módulo e inserir os códigos abaixo, e achar melhor, inserir 2 botões para executar as macros, após o click.



Sub PROTEGER()
Dim I As Long
For I = 1 To Worksheets.Count
Worksheets(I).Protect "Senha"
Worksheets(I).EnableSelection = xlNoSelection
Next I
End Sub

============

Sub DESPROTEGER()
Dim I As Long
For I = 1 To Worksheets.Count
Worksheets(I).Unprotect "Senha"
Next I
End Sub