Como desproteger uma planilha do Excel (tirar a senha)
Como desproteger uma planilha do excel? Se você já passou por isso. Continue conosco nesse artigo.
Para quem utiliza o Excel em sua rotina de trabalho, provavelmente já se deparou com a seguinte situação: “Esqueci minha senha!!!”, pois bem, se você se identificou, está no lugar certo!
Confirmo isso, pois não precisa se preocupar, que ainda existem saídas para não ter seu trabalho perdido, ou precisar começar do zero. Mas, no entanto, tal ação de remoção de senha, é necessário alguns passos.
Através de macro para desproteger a planilha do excel, podemos restaurar a planilha para como estava antes.
Como desproteger pasta de trabalho e planilha
De primeiro momento, você vai precisar habilitar a guia desenvolvedor, pois nosso código inserido, será através do Visual Basic. Em outras palavras, com a guia desenvolvedor disponível. Vamos acessar a tela do visual basic, através do ALT+F11 (atalho).
Mas para seguirmos o procedimento de como desproteger uma planilha do excel, é necessário inserir o código abaixo dentro de nosso módulo de programação.
Option Explicit
Sub DesprotegerPlanilhaAtiva()
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, 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 Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 'Após o
MsgBox "Planilha desprotegida com sucesso!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Feito isso, você terá uma tela parecida com a nossa abaixo: No entanto, você irá processar a macro para desproteger a planilha, que demora pouco mais de um minuto para finalizar, dependendo muito do tão complexa é a senha salva.
Executando o código de desbloqueio de planilha
Aqui se encontra o ponto mais importante de sua planilha na hora de utilizar, para até planilhas criadas em Office 2010 você poderá utilizar o código acima. No entanto para arquivos mais novos, se faz necessário salvar o arquivo em “.xls”.
Após tudo isso, basta executar o código DesprotegerPlanilhaAtiva e aguardar.
Como Desproteger Planilha do Excel Criptografada
Acima de tudo, é muito importante destacar que para planilhas criadas até na versão 2010, você poderá rodar o código. No entanto para versões mais novas e atuais, será necessário realizar o salvamento em arquivo XLS.
Embora, existem alguns problemas, pois ao utilizar essa versão do Excel, você tende a perder funções e perder informações na base de dados, pois como sabemos o Excel abaixo de 2010 é limitado em 65.536 linhas.
Após isso, encontramos um código novo que pode auxiliar você a realizar uma segunda tentativa, ficando então com dois códigos em VBA para poder desbloquear a planilha.
'Desproteger pasta de trabalho e planilha
Public Sub RetirarTodasSenhasInternasExcel()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Versão 1.1.1 04/Abril/2003"
Const REPBACK As String = DBLSPACE & ""
Const ALLCLEAR As String = DBLSPACE & "A planilha deve estar agora " & _
"livre de senhas de proteção, então:" & _
DBLSPACE & "SALVE AGORA!" & DBLSPACE & "e também" & _
DBLSPACE & "FAÇA UM BACKUP DA ANTIGA!!!" & _
DBLSPACE & "Lembre-se que a senha foi " & _
"colocada com algum propósito, Não estrague as fórmulas " & _
"ou banco de dados." & DBLSPACE & "Acesso e uso de algumas informações " & _
"pode ser contra a lei. Se tiver dúvida, não o faça."
Const MSGNOPWORDS1 As String = "Não foram encontradas senhas no " & _
"arquivo ou pasta de trabalho." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "Não existe proteção na " & _
"pasta de trabalho." & DBLSPACE & _
"Preparando para desbloquear planilhas (Pressione OK se for preciso)." & AUTHORS & VERSION
Const MSGTAKETIME As String = "Depois de dar OK " & _
"isso vai demorar um pouco." & DBLSPACE & "A duração de tempo " & _
"depende de quantas senhas diferentes, das " & _
"próprias senhas e das especificações de seu computador." & DBLSPACE & _
"Seja paciente e tome um café!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "Você tem agora a planilha ou " & _
"pasta de trabalho desbloqueada." & DBLSPACE & _
"Verificando e limpando outras senhas." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "Você tem agora a planilha ou " & _
"pasta de trabalho desbloqueada." & DBLSPACE & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End SubComo resultado, e já com a planilha salva em XLS (caso necessário), siga para a próxima etapa.
- Abra a planilha que gostaria de Desproteger pasta de trabalho e planilha.
- Clique na guia Desenvolvedor
- Clique no botão Macros
- Selecione a macro RetirarTodasSenhasInternasExcel
- Clique no botão Executar
Como descobrir a senha do Excel de maneira rápida
Uma segunda alternativa, caso a primeira não atenda a sua necessidade, é através da macro que força o desbloqueio.
Aqui está um exemplo de código VBA que tenta desbloquear a planilha, testando várias combinações de senhas.
Sub DesbloquearPlanilhaCombinacao()
Dim planilha As Worksheet
Dim senha As String
Dim i As Integer, j As Integer, k As Integer, l As Integer
' Define os caracteres que serão utilizados para gerar as senhas
Dim caracteres As String
caracteres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
' Define o tamanho máximo da senha (neste exemplo, até 4 caracteres)
Dim tamanhoMaximo As Integer
tamanhoMaximo = 4
' Percorre todas as combinações de senhas possíveis
For i = 1 To Len(caracteres)
For j = 1 To Len(caracteres)
For k = 1 To Len(caracteres)
For l = 1 To Len(caracteres)
senha = Mid(caracteres, i, 1) & Mid(caracteres, j, 1) & Mid(caracteres, k, 1) & Mid(caracteres, l, 1)
On Error Resume Next
For Each planilha In ThisWorkbook.Worksheets
planilha.Unprotect senha
Next planilha
On Error GoTo 0
If Not EstaProtegida() Then
MsgBox "Planilha desprotegida com a senha: " & senha
Exit Sub
End If
Next l
Next k
Next j
Next i
' Caso nenhuma senha seja encontrada
MsgBox "Nenhuma senha encontrada."
End Sub
Function EstaProtegida() As Boolean
EstaProtegida = False
On Error Resume Next
EstaProtegida = ActiveSheet.ProtectContents
On Error GoTo 0
End Function
Lembre-se de que essa abordagem pode levar muito tempo, dependendo do tamanho da senha e da complexidade dos caracteres utilizados.
Como Desproteger usando o Google Sheets
Uma nova alternativa descoberta recentemente é utilizando o Google Sheets para fazer uma “intermediação” entre as planilhas, permitindo o desbloqueio do arquivo.
Nessa situação a recomendação será:
- Salvar o arquivo criptografado através do Excel.
- Importar o arquivo em Excel dentro do Google Sheets.
- Exportar o novo arquivo pelo Google Sheets.
Com essa simples ação em muitos casos o arquivo durante a importação e exportação irá se desproteger, possibilitando dar andamento nos trabalhos.
Como desbloquear a planilha excel se eu souber a senha?
Outra opção de desbloquear, mas que nesse caso você precisa saber a senha que utilizou, é através da criação de uma macro para desproteção da planilha.
Nesse caso, a senha fornecida não foi esquecida, mas sim salva para uso em outro momento.
Para isso, será possível utilizar o código abaixo e personalizar conforme a necessidade.
Sub DesprotegerPlanilha()
Dim planilha As Worksheet
Dim senha As String
' Define a senha para desproteger a planilha
senha = "senha123"
' Desprotege a planilha com a senha especificada
For Each planilha In ThisWorkbook.Worksheets
planilha.Unprotect senha
Next planilha
' Limpa a senha da memória
Erase senha
End Sub
Aproveitamos também para destacar um de nossos principais artigos relacionados a VBA que você encontrará em nosso site:
Também, convidamos para se inscrever em nosso canal no Youtube, onde teremos conteúdos exclusivos semanalmente. Em outras palavras, muito explicativos.
Agradecemos a sua leitura, e até a próxima!
