Proteger várias planilhas de uma só vez no Excel - Macro VBA

Se você utiliza o Excel com muitas planilhas, e deseja bloqueá-las de uma só vez, sega o tutorial abaixo:

Implementar a macro abaixo.
Na guia desenvolvedor, clique em Visual Basic. O editor será aberto. Clique em Inserir > Módulo.
Cole o código no módulo, salve e execute.

NOTA: 123456 será a senha (você pode mudar se quiser).

Sub ProtegerTodas()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Activate
ActiveSheet.Protect ("123456")
Next
End Sub