Excel Tool VBA Password Recovery
Are you looking to unlock a protected sheet or actually recover the password? I can help you with the former.
Note this will only work to unlock a worksheet. It will not recover the VBA editor password (however this is possible by very hard to explain.)
1) Open the excel sheet you want to unlock,
2) Open VBA editor, (Alt+F11 while in excel)
3) add a module (insert > module)
4) and paste in this code into the main window (big window on the right)
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
5) Then either:
5a) go back to the excel window, click Developer > Macros > select PasswordBreaker
6) Or just hit the play icon (green triangle) in the top of the VBA editor
This will unlock the sheet, and give you a password which will unlock it in the future.
Note: Due to the encryption method used in excel, there are many possible passwords which will unlock the sheet. This will give you "a" password which will work but it will not be the one that you originally set up. Both the original and this one will still work.
×