Password Protected Workbook

%3CLINGO-SUB%20id%3D%22lingo-sub-2203845%22%20slang%3D%22en-US%22%3EPassword%20Protected%20Workbook%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2203845%22%20slang%3D%22en-US%22%3E%3CP%3EI%20have%20a%20password%20protected%20workbook%20and%20I%20do%20not%20have%20the%20password.%26nbsp%3B%20Does%20anyone%20know%20of%20anyway%20I%20can%20get%20into%20the%20workbook%20without%20the%20password%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2203845%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Visitor

I have a password protected workbook and I do not have the password.  Does anyone know of anyway I can get into the workbook without the password?

2 Replies
Sorry, no answer from me I'm afraid as I'm in the same situation following a Microsoft update. Can anyone out there help? Surely there must be a work around for a "lost" Excel password?

@Kerry48 

Here is a small solution to do it yourself ... only use it on your own files.

 

'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

 

 

Hope I was able to help you with this info.

 

 

Nikolino

I know I don't know anything (Socrates)