VBA to Remove or Reset Excel Spreadsheet Password

This code below will remove your spreadsheet password for any files from Excel 2003 to Excel 2010.
For more including removing the password from Excel 2016/2013 please visit http://bit.ly/2dlx8iN.
Paste the below code in any module or any VBA Workbook Project and run the code. This only works for Excel 2010 and below versions.

Reference for Office 365 Excel 

Watch this video on Youtube

Sub removeShPassword()

'-----------------------------
'Thanks for downloading the code. 
'Please visit our channel for a quick explainer on this code.
'Feel free to update the code as per your need and also share with your friends.
'Channel: Youtube.com/vbaa2z
'Download free codes from http://vbaa2z.blogspot.com
'Autor: L Pamai (vbaa2z.team@gmail.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


If Application.Version > 14 Then
    MsgBox "Only for Excel 2010 and below versions."
    Exit Sub
End If

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 "Password removed!"
            Exit Sub
  End If

Next: Next: Next: Next: Next: Next:
Next: Next: Next: Next: Next: Next:
End Sub