Share via

Locked EXCEL document

shaun priday 1 Reputation point
2020-08-18T04:42:55.227+00:00

I have a excel spread sheet that is password protected and can't open it, i have put a lot of info and work into it :-( . any ideas or programs that can unlock it. any assistance will be muchly appreciated18107-screenshot-2020-08-18-142503.png

Excel Management
Excel Management
Excel: A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.Management: The act or process of organizing, handling, directing or controlling something.
1,671 questions

3 answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Emily Hua-MSFT 27,571 Reputation points
    2020-08-18T07:27:12.463+00:00

    Hi shaun priday,

    From the picture, the Excel file is encrypted, you need to enter the correct password to open it. Please recall whether you have written down the password somewhere.

    As the password is your personal information, we could not help you retrieve password, thanks for your understanding.

    0 comments
  2. Kingsley Oliver 1 Reputation point
    2020-08-18T11:38:05.3+00:00

    Are you able to share the file? I can have a look for you...

    0 comments
  3. Hassan Mehmood Khan 6 Reputation points
    2020-09-18T16:11:26.277+00:00

    Use VBA

    Open VBA with following keys Alt+F11 --> Macro Editor

    Copy & Paste the following code and then rub the VBA

    Sub PasswordBreaker()

    'Breaks worksheet password protection.

    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
    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 "One usable password is " & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub