How to Unprotect/Remove Password in Excell Sheet

How to easily unprotect/remove password from a protected ExCel Worksheet (Works in all versions)

Please note that this method will only removes the protection from the excel file and not the password used to open the excel file itself.                    Open the excel file which is password protected and go to Macro's.  Click on "Record Macro>> OK" and then click on "Stop Recording" from the same menu.  Now go to "View Macros", you will find a macro with a default name E.g. Macro1. Select the macro name and click on Edit.  Now a Visual Basic Editor opens up.  Replace the default code and paste the below Code and just close it.

' modUnlockRoutines ' ' Module provides Excel workbook and sheet unlock routines. The algorithm ' relies on a backdoor password that can be 1 to 9 characters long where each ' character is either an "A" or "B" except the last which can be any character ' from ASCII code 32 to 255. ' ' Implemented as a regular module for use with any Excel VBA project. ' ' Dependencies: ' ' None ' ' © 2007 Kevin M. Jones Option Explicit Private Sub DisplayStatus( _ ByVal PasswordsTried As Long _ ) ' Display the status in the Excel status bar. ' ' Syntax ' ' DisplayStatus(PasswordsTried) ' ' PasswordsTried - The number of passwords tried thus far. Static LastStatus As String LastStatus = Format(PasswordsTried / 57120, "0%") & " of possible passwords tried." If Application.StatusBar <> LastStatus Then Application.StatusBar = LastStatus DoEvents End If End Sub Private Function TrySheetPasswordSize( _ ByVal Size As Long, _ ByRef PasswordsTried As Long, _ ByRef Password As String, _ Optional ByVal Base As String _ ) As Boolean ' Try unlocking the sheet with all passwords of the specified size. ' ' TrySheetPasswordSize(Size, PasswordsTried, Password, [Base]) ' ' Size - The size of the password to try. ' ' PasswordsTried - The cummulative number of passwords tried thus far. ' ' Password - The current password. ' ' Base - The base password from the calling routine. Dim Index As Long On Error Resume Next If IsMissing(Base) Then Base = vbNullString If Len(Base) < Size - 1 Then For Index = 65 To 66 If TrySheetPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then TrySheetPasswordSize = True Exit Function End If Next Index ElseIf Len(Base) < Size Then For Index = 32 To 255 ActiveSheet.Unprotect Base & Chr(Index) If Not ActiveSheet.ProtectContents Then TrySheetPasswordSize = True Password = Base & Chr(Index) Exit Function End If PasswordsTried = PasswordsTried + 1 Next Index End If On Error GoTo 0 DisplayStatus PasswordsTried End Function Private Function TryWorkbookPasswordSize( _ ByVal Size As Long, _ ByRef PasswordsTried As Long, _ ByRef Password As String, _ Optional ByVal Base As String _ ) As Boolean ' Try unlocking the workbook with all passwords of the specified size. ' ' TryWorkbookPasswordSize(Size, PasswordsTried, Password, [Base]) ' ' Size - The size of the password to try. ' ' PasswordsTried - The cummulative number of passwords tried thus far. ' ' Password - The current password. ' ' Base - The base password from the calling routine. Dim Index As Long On Error Resume Next If IsMissing(Base) Then Base = vbNullString If Len(Base) < Size - 1 Then For Index = 65 To 66 If TryWorkbookPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then TryWorkbookPasswordSize = True Exit Function End If Next Index ElseIf Len(Base) < Size Then For Index = 32 To 255 ActiveWorkbook.Unprotect Base & Chr(Index) If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then TryWorkbookPasswordSize = True Password = Base & Chr(Index) Exit Function End If PasswordsTried = PasswordsTried + 1 Next Index End If On Error GoTo 0 DisplayStatus PasswordsTried End Function Public Sub UnlockSheet() ' Unlock the active sheet using a backdoor Excel provides where an alternate ' password is created that is more limited. Dim PasswordSize As Variant Dim PasswordsTried As Long Dim Password As String PasswordsTried = 0 If Not ActiveSheet.ProtectContents Then MsgBox "The sheet is already unprotected." Exit Sub End If On Error Resume Next ActiveSheet.Protect "" ActiveSheet.Unprotect "" On Error GoTo 0 If ActiveSheet.ProtectContents Then For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1) If TrySheetPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For Next PasswordSize End If If Not ActiveSheet.ProtectContents Then MsgBox "The sheet " & ActiveSheet.Name & " has been unprotected with password '" & Password & "'." End If Application.StatusBar = False End Sub Public Sub UnlockWorkbook() ' Unlock the active workbook using a backdoor Excel provides where an alternate ' password is created that is more limited. Dim PasswordSize As Variant Dim PasswordsTried As Long Dim Password As String PasswordsTried = 0 If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then MsgBox "The workbook is already unprotected." Exit Sub End If On Error Resume Next ActiveWorkbook.Unprotect vbNullString On Error GoTo 0 If ActiveWorkbook.ProtectStructure Or ActiveWorkbook.ProtectWindows Then For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1) If TryWorkbookPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For Next PasswordSize End If If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then MsgBox "The workbook " & ActiveWorkbook.Name & " has been unprotected with password '" & Password & "'." & "  Revealed by PAVULURI VIKRAM" End If Application.StatusBar = False End Sub

Finally, run the Macro.  YOU WILL GET THE PASSWORD OF THE PROTECTED WORKBOOK AND WORKSHEET IN EXCEL.  I HAVE TESTED IN XP, 2003, 2007 Versions.