0 Easy way to unprotect MS Excel Sheet. Option Protect Workbook is possible to reset and to remove password!

If you are having troubles with password protected excel sheets to which You had forgotten password, there is a very easy way to unblock, unprotect and remove excel password!

First of all, you need to open blocked excel file, make sure it it really protected- look on review and check if Protect Workbook is highlighted: 

If Protected Workbook is active, pleas read next steps which will help you to unprotect:




Use your keyboard and run addition do excel - Visual Basic (special program to create macros). 

To do so, use shortcuts: ALT + F11 [press and hold ALT key and press F11 button].

You shoul see something like bellow:

Click Insert, next Module. New module will showup:

To remove password in Microsoft Excel, in text field on the right side, paste text which is located at the bottom of this page.

It shoul be looking like:

Next step, which will unprotest excel workbook is to click "play" button, marked yellow:

Ready! You have just reseted and ublocked excel workbook and sheets. Congrats!




Macro code to unprotect Excel sheets:


Sub UnprotectSheets()
  'Very easy way to unprotect password in excel
  'http://excel-easy-way.blogspot.com/
  
  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)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = 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


If you fount this easy way to unprotect microsoft excel sheets solution usefull, please comment bellow and if you have web page, please link our site!