Proteger e desproteger todas planilhas no Excel não é nenhuma novidade para usuários básico e intermediários e por que não dizer os avançados também. Mas quero lhe apresentar uma maneira automática de fazer a proteção e desproteger suas planilha e o mais legal de tudo fazer isso com todas as planilhas de uma só vez.
Os recursos do Excel se tornam mais interessantes quando passamos a usar programação para automatizar as rotinas dentro do Excel. Com o código abaixo você será capaz de bloquear todas as planilhas da pasta de trabalho de uma só vez. Também será possível desbloquear todas as planilhas bloqueadas.
Protegendo todas as planilhas de uma só vez
Cria uma nova pasta de trabalho no Excel e em seguida abra o editor VBE e cria um novo modulo. Após criar o modulo insere os códigos abaixo e só criar um botão na planilha ou executar diretamente no modulo mesmo.
Public Sub ProtegerPlanilhas()<br />Dim WS As Worksheet<br />Dim Senha As String<br />Senha = "Test123" 'Coloca sua senha aqui<br />For Each WS In Worksheets<br /> WS.Protect password:=Senha<br />Next WS<br />End Sub
Public Sub ProtegerPlanilhas()
Dim WS As Worksheet
Dim Senha As String
Senha = "Test123" 'Coloca sua senha aqui
For Each WS In Worksheets
WS.Protect password:=Senha
Next WS
End Sub
Após a macro ter sido criada vamos inserir um botão para facilitar a execução sem a necessidade de sempre abrir o VBE. Para isso clica na guia inserir e siga o passo a passo mostrado na imagem.
Após isso clicar no primeiro botão inserido e com o botão direito do mouse clica em atribuir macro e seleciona a macro correspondente com o botão de ação.
Desprotegendo todas as planilhas bloqueadas de uma só vez
No mesmo modulo que você criou adiciona esse código abaixo e executa a macro e pronto já vai desbloquear todas as planilhas bloqueadas.
|
1
|
Public Sub DesprotegerPlanilhas()<br />Dim WS As Worksheet 'o WS e o nome da variavel que quer dize Worksheet<br />Dim Senha As String<br />Senha = "Test123" 'Tem que ser a mesma senha para proteção<br />For Each WS In Worksheets<br />WS.Unprotect password:=Senha<br />Next WS<br />End Sub |
Public Sub DesprotegerPlanilhas()
Dim WS As Worksheet 'o WS e o nome da variavel que quer dize Worksheet
Dim Senha As String
Senha = "Test123" 'Tem que ser a mesma senha para proteção
For Each WS In Worksheets
WS.Unprotect password:=Senha
Next WS
End Sub
Repita o mesmo passa a passo realizado para o primeiro botão e pronto já vamos ter os dois botões de ação.
Importante! – Proteger e desproteger todas as planilhas
As senhas têm que exatamente igual a que foi adicionado no bloqueio obviamente, do contrário vai apresentar erros. Proteger e desproteger todas as planilhas com recursos avançados.
Baixa a planilha de demonstração do exemplo para fim didáticos, aproveita para navegar mais em nosso site e aprender mais sobre essas fantásticas ferramentas que e o Excel e VBA.
Veja mais…
Sistema de Controle Financeiro Completo em Excel 4.0
Planilhas para a gestão do seu negócio em Excel
