How do I unprotect the wordsheet on my Excel 2007?

Asked By 10 points N/A Posted on -
qa-featured

Hello techyv.com!

I have here a Laptop with an Operating System of Windows 7. I have been using Microsoft Excel 2007 for my work. Now I have been editing some stuffs with the project that I have been making, and suddenly I've realized that I have encoded a wrong password for it that is different from the usual that I have been using. Now I can't seem to remember what I have placed on it. May I ask how do I unprotect sheet on my Excel 2007?

SHARE
Best Answer by Leland L Olson
Answered By 35 points N/A #176650

How do I unprotect the wordsheet on my Excel 2007?

qa-featured

To Unprotect your Excel sheet without knowing the password, just follow the below mentioned steps:

Step 1: Change the file extension from xlsx to zip and open the file using Winzip or winrar.

Step 2: Open the xl folder and then worksheets folder.

Step 3: Edit the worksheet you want to Unprotect (right click and edit).

Step 4: Delete the sheetProtection tag and save the changes (For Eg: <sheetProtection password="46S1" sheet="3" objects="1" scenarios="1"/>).

Step 5: Change the file extension from zip to xlsx.

Best Answer
Best Answer
Answered By 40 points N/A #176651

How do I unprotect the wordsheet on my Excel 2007?

qa-featured

Hello,

To unprotect the excel sheets having forgotten the password follow the following steps:

  1. Open MS Excel that is password protected
  2. Press ALT + F11
  3. On the white space that appears type 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 style="font-family: Verdana; font-weight: normal; font-size: 12px; color: black;">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

  1. Click the run button.

The sheet is now unprotected. Messages may appear on pop up windows,these messages contain the password to unprotect the other sheets.

Hope this works for you. All the best.

Thanks.

Related Questions