Desbloquear ou Desproteger Planilha do Excel

Muitas vezes criamos arquivos em Excel e esquecemos a senha ou até mesmo temos aquele colega na empresa que criou um arquivo bacana mas saiu da empresa e levou com ele a senha do arquivo, e ai precisamos Desproteger nossas Planilhas do EXCEL.

Para tirar a senha de arquivos totalmente protegidos e desbloquear a planilha, é preciso criar uma macro capaz dequebra-la. E isso só é possível através das opções de desenvolvedor do Office.

Para que todo o trabalho não seja perdido e para que você consiga recuperar desbloquear a planilha ou acessar as informações temos um passo a passo que  vai ajudar.

Siga o passo a passo abaixo e conseguirá realizar o processo de desbloqueio da sua planilha, caso tenha dúvidas você pode me enviar um comentário ou até mesmo e-mail. 🙂

Desproteger Planilhas do EXCEL

  1. Com o arquivo aberto, acesse o menu Desenvolvedor e clique em Macros ou clique ALT+F11.
  2. No ambiente de programação do VBA vá em INSERIR > MÓDULO
  3. Insira o código abaixo copiando e colando desde a linha “Sub Desbloquear_Planilha()” até “End Sub”.
  4. Ainda no console de macros selecione a macro que acabou de criar (no caso, Desbloquear_Planilha) e clique em Executar;
  5. Ou volte para o excel e digite ALT+F8. Selecione sua macro (Desbloquear_Planilha) e clique em executar.
  6. O processo pode levar algum tempo, aguarde alguns segundos e após a execução da macro será exibida a mensagem “Sua planilha foi desbloqueada!”
  7. Pronto o processo foi finalizado!

E pronto, seu arquivo está desprotegido.

Sub Desbloquear_Planilha()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Sua planilha foi desbloqueada "
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

*É importante ressaltar que este tópico não incentiva a pirataria ou o uso indevido de arquivos de terceiros que não tenham autorizado previamente a desbloquear planilha.

Acesse nossa sessão de VBA e deixe seu comentário como foi o processo de desbloquear planilha neste post!

Espero que consigam e que essa dica tenha sido útil.

Abraços

Douglas




.

Sobre o Autor

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *