Muitas vezes criamos uma Planilha do Excel e esquecemos a senha ou até mesmo temos aquela situação onde o colega saiu da empresa, e descobrimos que o criador do arquivo a protegeu com uma senha, impedindo que outras pessoas passam altera-la, 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. 🙂
Confira o vídeo com o passo a passo | Habilite o Som
Desproteger Planilhas do EXCEL
- Abra o arquivo vá até o menu “Salvar Como”, salve ele como “Pasta de trabalho do Excel 97-2003 (*.xls)
- Feche o arquivo atual e abra o arquivo que foi salvo no formato acima.
- Com o arquivo aberto, acesse o menu Desenvolvedor e clique em Macros ou clique ALT+F11.
- No ambiente de programação do VBA vá em INSERIR > MÓDULO
- Insira o código abaixo copiando e colando desde a linha “Sub Desbloquear_Planilha()” até “End Sub”.
- Ainda no console de macros selecione a macro que acabou de criar (no caso, Desbloquear_Planilha) e clique em Executar;
- Ou volte para o excel e digite ALT+F8. Selecione sua macro (Desbloquear_Planilha) e clique em executar.
- 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!”
- Pronto o processo foi finalizado!
E pronto, seu arquivo está desprotegido.
Sub Desbloqueia_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
Deixe um comentário