0% found this document useful (0 votes)
130 views

Sub Password Breaker Excell

This document provides instructions for breaking a worksheet password in Excel 97-2003. It describes pressing ALT+F11 to open the Visual Basic editor, inserting a module, and pasting in a VBA script. The script uses nested For loops to try all combinations of uppercase letters (A-Z) as the password and displays the password if it successfully unprotects the sheet.

Uploaded by

mukmin
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
130 views

Sub Password Breaker Excell

This document provides instructions for breaking a worksheet password in Excel 97-2003. It describes pressing ALT+F11 to open the Visual Basic editor, inserting a module, and pasting in a VBA script. The script uses nested For loops to try all combinations of uppercase letters (A-Z) as the password and displays the password if it successfully unprotects the sheet.

Uploaded by

mukmin
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Save in Excel 97-2003


Tekan ALT+F11

Insert > Module

Paste

F5/Run

Sub PasswordBreaker()
'Breaks worksheet password protection.

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 "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)

Exit Sub

End If

Next: Next: Next: Next: Next: Next


Next: Next: Next: Next: Next: Next
End Sub

You might also like