Desproteger Planilhas do Excel

Desproteger Planilhas do Excel

Com apenas um código você poderá quebrar a senha e desproteger planilhas do Excel. Muitas vezes criamos planilhas e as protegemos, nem sempre colocamos proteção para terceiros, mas para nós mesmo não excluirmos um código que levou horas para fazer.

Com o tempo criamos vários documentos e quando resolve criar outro, lembramos que temos um modelo parecido, bom, ter até temos, mas lembra a senha para desproteger e poder editá-lo?

Esse pequeno código abaixo faz isso para você, ele deve ser inserido em uma Macro do Excel. Esse código somente poderá ser usado em arquivos abertos, ou seja, se sua planilha está protegida com senha de abertura, deve usar outro procedimento. Falarei sobre isso em breve.

Se a planilha protegida não aceitar Macros, basta criar uma nova planilha dentro da mesma pasta de trabalho, execute o código na nova planilha, mas deixe a planilha com senha aberta.

Após executar a Macro, aguarde, pois dependendo do tamanho da senha pode levar algum tempo, geralmente leva 1 minuto, depois de quebrada a senha, abrirá uma janela confirmando que sua planilha foi desprotegida. Para salva-la sem proteção, use “Salvar como” para garantir.

Código para desproteger planilhas do Excel:

Sub Desproteger_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 desprotegida "
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

 

Aviso:
Essa informação deve ser usada apenas para uso pessoal, para desbloquear planilhas com direitos autorais, por qualquer motivo, avise e ou peça permissão ao autor.