How to unprotect the excel sheet if forgot the password

%3CLINGO-SUB%20id%3D%22lingo-sub-1574559%22%20slang%3D%22en-US%22%3EHow%20to%20unprotect%20the%20excel%20sheet%20if%20forgot%20the%20password%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1574559%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20team%20need%20support%20to%20unprotect%20my%20sheet%20which%20is%20password%20protected%20and%20forgot%20the%20password%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1574559%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EHow-to%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1574978%22%20slang%3D%22en-US%22%3ERe%3A%20How%20to%20unprotect%20the%20excel%20sheet%20if%20forgot%20the%20password%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1574978%22%20slang%3D%22en-US%22%3EHi%2C%3CBR%20%2F%3E%3CBR%20%2F%3EI%20am%20afraid%20the%20quick%20answer%20is%20you%20can't%20as%20to%20do%20so%20is%20to%20circumvent%20security.%3CBR%20%2F%3E%3CBR%20%2F%3ESo%20the%20best%20I%20can%20do%20is%20to%20say%20search%20for%20it%20via%20a%20search%20engine%2C%20but%20I%20can't%20condone%20any%20of%20the%20methods.%3CBR%20%2F%3E%3CBR%20%2F%3EThanks%3CBR%20%2F%3E%3CBR%20%2F%3EHenry%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1579176%22%20slang%3D%22en-US%22%3ERe%3A%20How%20to%20unprotect%20the%20excel%20sheet%20if%20forgot%20the%20password%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1579176%22%20slang%3D%22en-US%22%3E%3CP%3EHello%26nbsp%3B%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F753359%22%20target%3D%22_blank%22%3E%40vedangbapna%3C%2FA%3E%26nbsp%3B%20%26nbsp%3BThis%20really%20should%20be%20in%20the%20Excel%20community%20conversation%20so%20I'm%20going%20to%20move%20it%20there%20to%20increase%20your%20chances%20of%20getting%20a%20response.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1579202%22%20slang%3D%22de-DE%22%3ESubject%3A%20How%20to%20unprotect%20the%20excel%20sheet%20if%20forgot%20the%20password%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1579202%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F753359%22%20target%3D%22_blank%22%3E%40vedangbapna%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E'CAUTION%20only%20to%20be%20used%20for%20your%20own%20Excel%20sheets!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3EOption%20Explicit%0A%0ASub%20GetPass()%0A%0A%20%20%20%20Const%20a%20%3D%2065%2C%20b%20%3D%2066%2C%20c%20%3D%2032%2C%20d%20%3D%20126%0A%0A%20%20%20%20Dim%20i%23%2C%20j%23%2C%20k%23%2C%20l%23%2C%20m%23%2C%20n%23%2C%20o%23%2C%20p%23%2C%20q%23%2C%20r%23%2C%20s%23%2C%20t%23%0A%0A%20%20%20%20With%20ActiveSheet%0A%0A%20%20%20%20%20%20%20%20If%20.ProtectContents%20Then%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20On%20Error%20Resume%20Next%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20For%20i%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20j%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20k%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20l%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20m%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20n%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20o%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20p%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20q%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20r%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20s%20%3D%20a%20To%20b%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20t%20%3D%20c%20To%20d%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20.Unprotect%20Chr(i)%20%26amp%3B%20Chr(j)%20%26amp%3B%20Chr(k)%20%26amp%3B%20Chr(l)%20%26amp%3B%20Chr(m)%20%26amp%3B%20_%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20Chr(n)%20%26amp%3B%20Chr(o)%20%26amp%3B%20Chr(p)%20%26amp%3B%20Chr(q)%20%26amp%3B%20Chr(r)%20%26amp%3B%20Chr(s)%20%26amp%3B%20Chr(t)%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20t%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20s%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20r%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20q%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20p%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20o%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20n%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20m%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20l%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20k%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20j%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20Next%20i%0A%0A%20%20%20%20%20%20%20%20%20%20%20%20MsgBox%20%22Finished%22%0A%0A%20%20%20%20%20%20%20%20End%20If%0A%0A%20%20%20%20End%20With%0A%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22tlid-translation%20translation%22%3E%3CSPAN%20class%3D%22%22%3EFor%20any%20irresponsible%20action%20with%20this%20code%2C%20by%20any%20user%2C%20cannot%20and%20will%20not%20be%20responsible.%3C%2FSPAN%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%3C%2FP%3E%3CP%3EI%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3CP%3E%3CFONT%20size%3D%221%202%203%204%205%206%207%22%3E*%20Kindly%20Mark%20and%20Vote%20this%20reply%20if%20it%20helps%20please%2C%20as%20it%20will%20be%20beneficial%20to%20more%20community%20members%20reading%20here.%3C%2FFONT%3E%3C%2FP%3E%3CP%3E%3CFONT%20size%3D%221%202%203%204%205%206%207%22%3E*%20Beware%20of%20scammers%20posting%20fake%20support%20numbers%20here.%3C%2FFONT%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor

Hi team need support to unprotect my sheet which is password protected and forgot the password

 

3 Replies
Hi,

I am afraid the quick answer is you can't as to do so is to circumvent security.

So the best I can do is to say search for it via a search engine, but I can't condone any of the methods.

Thanks

Henry

Hello @vedangbapna   This really should be in the Excel community conversation so I'm going to move it there to increase your chances of getting a response.

@vedangbapna 

 

'CAUTION only to be used for your own Excel sheets!

 

 

Option Explicit

Sub GetPass()

    Const a = 65, b = 66, c = 32, d = 126

    Dim i#, j#, k#, l#, m#, n#, o#, p#, q#, r#, s#, t#

    With ActiveSheet

        If .ProtectContents Then

            On Error Resume Next

            For i = a To b

                For j = a To b

                    For k = a To b

                        For l = a To b

                            For m = a To b

                                For n = a To b

                                    For o = a To b

                                        For p = a To b

                                            For q = a To b

                                                For r = a To b

                                                    For s = a To b

                                                        For t = c To d

            .Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & _

            Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t)

                                                        Next t

                                                    Next s

                                                Next r

                                            Next q

                                        Next p

                                    Next o

                                Next n

                            Next m

                        Next l

                    Next k

                Next j

            Next i

            MsgBox "Finished"

        End If

    End With

End Sub

 

For any irresponsible action with this code, by any user, cannot and will not be responsible.

 

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

* Beware of scammers posting fake support numbers here.