Thanks a lot dear for your sharing. Kindly assist with password because the sheet is protected. My id email : brotherpascal2006@gmail.com
From Congo, Lubumbashi
Acknowledge(0)
Amend(0)
From Congo, Lubumbashi
Acknowledge(0)Amend(0)
Hi, Its really nice. great effort. Can you pls provide the password.
From India, Madras
Acknowledge(0)Amend(0)
5From India, Madras
Acknowledge(0)Amend(0)
To crack the password of an Excel or Word sheet, follow the coding below.
This code works in Excel 2010 and 2013 as I have tested it. Works great!
"Press ALT + F11 or click on View Code in Developers tab.
In the Visual Basic editor, enter the following code. Do not change the code, just copy and paste:
```vba
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 "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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
```
Now, click on the Run button or press F5."
For more information, email at [sarangkalamkar@gmail.com](mailto:sarangkalamkar@gmail.com).
From India, Mumbai
Acknowledge(0)Amend(0)
This code works in Excel 2010 and 2013 as I have tested it. Works great!
"Press ALT + F11 or click on View Code in Developers tab.
In the Visual Basic editor, enter the following code. Do not change the code, just copy and paste:
```vba
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 "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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
```
Now, click on the Run button or press F5."
For more information, email at [sarangkalamkar@gmail.com](mailto:sarangkalamkar@gmail.com).
From India, Mumbai
Acknowledge(0)Amend(0)
Hello sarang21 your code is not working. I think this code is not for unprotect.
From India, Indore
Acknowledge(0)Amend(0)
From India, Indore
Acknowledge(0)Amend(0)
Hi Shweta thanks for sharing, please provide the password on bistsunil@rediffmail.com
From India, Vadodara
Acknowledge(0)Amend(0)
From India, Vadodara
Acknowledge(0)Amend(0)
Hi jignesh sir, Thanks a lot dear sir for your sharing. Kindly assist with password because the sheet is protected. My id email : activefacility@gmail.com
From India, Bengaluru
Acknowledge(0)Amend(0)
From India, Bengaluru
Acknowledge(0)Amend(0)Looking for something specific? - Join & Be Part Of Our Community and get connected with the right people who can help. Our AI-powered platform provides real-time fact-checking, peer-reviewed insights, and a vast historical knowledge base to support your search.