Scribd Logo
Upload

Welcome to Scribd!

  • 12 views

    Hack Excel Lock To Unlock

    Uploaded by

    Riska Pratiwi
    This VBScript code attempts all possible combinations of characters as passwords to unprotect a workbook and worksheet without using error handling or checks for protected structure or windows.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Hack Excel Lock To Unlock

    Uploaded by

    Riska Pratiwi
    12 views3 pages
    This VBScript code attempts all possible combinations of characters as passwords to unprotect a workbook and worksheet without using error handling or checks for protected structure or windows.

    Original Title

    HACK EXCEL LOCK TO UNLOCK

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This VBScript code attempts all possible combinations of characters as passwords to unprotect a workbook and worksheet without using error handling or checks for protected structure or windows.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    12 views3 pages

    Hack Excel Lock To Unlock

    Uploaded by

    Riska Pratiwi
    This VBScript code attempts all possible combinations of characters as passwords to unprotect a workbook and worksheet without using error handling or checks for protected structure or windows.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 3

    Sub InternalPasswords()

    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

    ActiveWorkbook.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)

    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 ActiveWorkbook.ProtectStructure = False Then

    If ActiveWorkbook.ProtectWindows = False Then

    If ActiveSheet.ProtectContents = False Then

    Exit Sub

    End If

    End If

    End If

    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

    End Sub

    End If

    End If
    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

    End Sub

    You might also like