Desprotegendo várias planilhas de uma vez

Abaixo informamos uma maneira muito simples de se desproteger várias planilhas de uma só vez no excel. É um codigo 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: desproteger planilhas, proteger planilhas, ocultar planilhas, reexibir planilhas, etc.
Espero que tenham gostado de mais esta super dica de excel.

Sub desproteger_todas_planilhas()

Dim i As Integer

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

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

Exibindo várias planilhas de uma vez

Abaixo informamos uma maneira muito simples de se reexibir várias planilhas de uma só vez no excel. É um codigo 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: reexibir planilhas, ocultar planilhas, desproteger planilhas, proteger planilhas, etc.
Espero que tenham gostado de mais esta super dica de excel.

Sub reexibindo_planilhas()

Dim i As Integer

'O codigo abaixo fará um loop em todas as planilhas que você deseja reexibir
'Obs: temos sempre que deixar no minimo 01 planilha ativa

For i = 1 To 2 ' numero de planilhas a serem reexibidas
Sheets(i).Visible = -1
Next i
MsgBox "Planilhas Exibidas com sucesso" 'mensagem opcional
End Sub

Ocultando várias planilhas de uma vez

Abaixo informamos uma maneira muito simples de se ocultar várias planilhas de uma só vez no excel. É um codigo 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: ocultar planilhas, reexibir planilhas, desproteger planilhas, proteger planilhas, etc.
Espero que tenham gostado de mais esta super dica de excel.

Sub ocultando_planilhas()

Dim i As Integer

'O codigo abaixo fará um loop em todas as planilhas que você deseja ocultar
'Obs: temos sempre que deixar no minimo 01 planilha ativa

For i = 1 To 2 'numero de planilhas a serem ocultadas
Sheets(i).Visible = 2
Next i
MsgBox "Planilhas ocultadas com sucesso!!!" 'mensagem opcional
End Sub

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