Protegendo várias planilhas de uma vez

Abaixo informamos uma maneira muito simples de se proteger várias planilhas de uma só vez no excel. É um código em VBA onde será necessário apenas nosso leitor copiar e colar.
Observe nesta dica que podemos utilizar este código para diversas funionabilidades do Excel tais como: proteger planilhas, desproteger planilhas, ocultar planilhas, reexibir planilhas, etc.
Espero que tenham gostado de mais esta super dica de excel.


Sub proteger_todas_planilhas()

Dim i As Integer

' faz um loop nas planilhas padrão do excel
' caso haja mais do que 03 planilhas a serem protegidas altere o numero 3 para a quantidade desejada

For i = 1 To 3
Sheets(i).Protect Password:="123" ' onde 123 é a senha informada
Next i
MsgBox "Planilhas protegidas com sucesso!!!" ' mensagem opcional
End Sub