How to unprotect the excel sheet if forgot the password

[vedangbapna]

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

[#2]

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

[#3]

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.

[#4]

@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.