How to Unprotect an Excel Sheet
Open the password-protected Excel spreadsheet. , Press “Alt + F11.” This will allow you to work on your spreadsheet in developer’s mode. , Copy and paste the following code into the blank white space in developer’s mode: Sub Password Breaker()...
Step-by-Step Guide
-
Step 1: Open the password-protected Excel spreadsheet.
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 , Excel will display a message on-screen that contains the password for the worksheet. ,,, Your Excel spreadsheet will now be unprotected. -
Step 2: Press “Alt + F11.” This will allow you to work on your spreadsheet in developer’s mode.
-
Step 3: Copy and paste the following code into the blank white space in developer’s mode: Sub Password Breaker() 'Breaks worksheet password protection.
-
Step 4: Click on “Run” at the top of your session
-
Step 5: or press F5 to execute the command.
-
Step 6: Write down the password and click on “OK.”
-
Step 7: Click on the “Review” tab
-
Step 8: then click on “Unprotect sheet.”
-
Step 9: Type in the password for the document.
Detailed Guide
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 , Excel will display a message on-screen that contains the password for the worksheet. ,,, Your Excel spreadsheet will now be unprotected.
About the Author
Steven Miller
Dedicated to helping readers learn new skills in pet care and beyond.
Rate This Guide
How helpful was this guide? Click to rate: