UnLock Microsoft Excel Password locked Excel Worksheet

Warning: This article was published many years ago (greater than two) Nov 18, 2016. Some information may be outdated.

Unlock password Protected worksheet in Excel

Open the workbook, Use Alt+F11 to enter the macro editor.

screenshot1

Once in VBA double click the sheet you need to unlock from the menu listing on the left. Copy and Paste the following code

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

Run the Macro by selecting Run from the menu bar at the top of the VBA editor screen or simply press F5

Use the code displayed to open the locked WorkSheets

screenshot2a

Please use the above to unlock your own worksheets.

[su_box title=”Disclaimer:” style=”noise” radius=”10″]The above code was found on Internet, the original website is not found, used the google cache and provided code herewith.[/su_box]

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.