Thursday, March 12, 2009

article logoBroke any password in Excel

Break Excel sheet Protection
When you are facing any excel sheets are protected with password or you protect that sheet with password long time ago and you forgot that password, then you can use these below code to break the password. Just Right click on sheet tab and click View Code. Microsoft Visual basic editor will open. Paste these code and Click Run. A popup window will come with your password. That's it.

'Author unknown
'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

0 comments:

Post a Comment