- Messages
- 1
- Reaction score
- 0
- Points
- 16
galing po eto kay kadz_amir, kinopya ko lang pra maka pag post ng thread to reach the market place.
Thank you sir.
Kung repost na po to paki delete na lang po.
Follow these Steps Carefully.
Note: Applicable to any version of MS Office. What I am using in this demonstration is MS Office 2010.
1. Open the Password Protected Excel Sheet.
2. Press Alt+F11. A MS Visual Basic Interface will popup.
3. Do as what the image shows
Click image for larger version.
Name: Img_01.PNG
Views: 1649
Size: 61.6 KB
ID: 388291
4. Paste this code:
Code:
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
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
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
and will look like this
Click image for larger version.
Name: Img_02.PNG
Views: 1092
Size: 135.7 KB
ID: 388292
5. Close the MS Visual Basic Interface and return to the protected excel sheet.
6. Go to view>macros (it may differ with other version of MS Office).Follow the steps in the image as shown.
Click image for larger version.
Name: Img_03.PNG
Views: 1044
Size: 133.0 KB
ID: 388293
7. Then a window will popup and will look like this.
Click image for larger version.
Name: Img_04.PNG
Views: 851
Size: 73.5 KB
ID: 388294
8. After running the code please wait until it finishes its routine. It may take a minute or two depending on the speed of your system.
9. If you see the messagebox as shown below then you're successful.
Click image for larger version.
Name: Img_05.PNG
Views: 931
Size: 105.2 KB
ID: 388295
10. Then "Save As" it in a different filename.
I hope you'll find this tutorial helpful.
Thank you sir.
Kung repost na po to paki delete na lang po.
Follow these Steps Carefully.
Note: Applicable to any version of MS Office. What I am using in this demonstration is MS Office 2010.
1. Open the Password Protected Excel Sheet.
2. Press Alt+F11. A MS Visual Basic Interface will popup.
3. Do as what the image shows
Click image for larger version.
Name: Img_01.PNG
Views: 1649
Size: 61.6 KB
ID: 388291
4. Paste this code:
Code:
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
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
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
and will look like this
Click image for larger version.
Name: Img_02.PNG
Views: 1092
Size: 135.7 KB
ID: 388292
5. Close the MS Visual Basic Interface and return to the protected excel sheet.
6. Go to view>macros (it may differ with other version of MS Office).Follow the steps in the image as shown.
Click image for larger version.
Name: Img_03.PNG
Views: 1044
Size: 133.0 KB
ID: 388293
7. Then a window will popup and will look like this.
Click image for larger version.
Name: Img_04.PNG
Views: 851
Size: 73.5 KB
ID: 388294
8. After running the code please wait until it finishes its routine. It may take a minute or two depending on the speed of your system.
9. If you see the messagebox as shown below then you're successful.
Click image for larger version.
Name: Img_05.PNG
Views: 931
Size: 105.2 KB
ID: 388295
10. Then "Save As" it in a different filename.
I hope you'll find this tutorial helpful.