Quebrar senha de planilha via VBA

como-proteger-planilhas-do-excel-com-senhaVocê já se deparou com uma planilha que é preciso alterar algum campo porem não consegue porque ela esta protegida? ou esqueceu a senha daquela planilha que você fez a muito tempo?

Bom, seus problemas acabaram!

Para ajudar os colegas estamos disponibilizando um método utilizando código Visual Basic para quebrar a senha de planilhas Excel.

Para utiliza-lo siga os passos:

Aperte ALt+F11 e será aberta a janela conforme imagem no link abaixo:

alt_f11

No canto esquerdo da tela selecione a planilha que deseja desproteger e dê dois cliques:

alt_f11

Cole o código abaixo (sem as aspas) e aperte executar.

"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 "Planilha desprotegida com sucesso!!!"

Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub"

Agora é só esperar alguns minutos e sua planilha será desprotegida!

# Type at least 1 character to search # Hit enter to search or ESC to close