Scribd
Upload
28 views

Crack Sheet Protection Password

This routine provides a password to unprotect a protected worksheet by trying all possible 6-character password combinations using letters and numbers. However, it may not give you the original password that was used. The code uses nested For loops to try every combination of characters from ASCII codes 65-66 (A-Z) and 32-126 (space-~) before unprotecting the sheet. If successful, it displays the password.

Uploaded by

Gergely Kovács
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
28 views

Crack Sheet Protection Password

This routine provides a password to unprotect a protected worksheet by trying all possible 6-character password combinations using letters and numbers. However, it may not give you the original password that was used. The code uses nested For loops to try every combination of characters from ASCII codes 65-66 (A-Z) and 32-126 (space-~) before unprotecting the sheet. If successful, it displays the password.

Uploaded by

Gergely Kovács
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Crack Sheet Protection Password

This routine provides a password to unprotect your worksheet. However, it


may not give you the original password that was used.

Open the workbook that has the protected sheet in it. Hit Alt+F11 to view
the Visual Basic Editor. Hit Insert-Module and paste this code into the
right-hand code window:

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-
exchange.com

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

Close the VB Editor window. Navigate to the worksheet you want to


unprotect. Hit Tools-Macro-Macros and double-click PasswordBreaker in
the list.

You might also like