Scribd Logo
Upload

Welcome to Scribd!

  • 47 views

    Skript Pembuka Password Excel

    Uploaded by

    AMP SOCIAL
    The document contains code that attempts to automatically uncover internal passwords in a workbook by systematically cycling through all possible character combinations for 13 variables and using those combinations to unprotect both the active workbook and active sheet. It exits the subroutine if any of the unprotect actions are successful in removing protections.

    Copyright:

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

    Skript Pembuka Password Excel

    Uploaded by

    AMP SOCIAL
    47 views1 page
    The document contains code that attempts to automatically uncover internal passwords in a workbook by systematically cycling through all possible character combinations for 13 variables and using those combinations to unprotect both the active workbook and active sheet. It exits the subroutine if any of the unprotect actions are successful in removing protections.

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains code that attempts to automatically uncover internal passwords in a workbook by systematically cycling through all possible character combinations for 13 variables and using those combinations to unprotect both the active workbook and active sheet. It exits the subroutine if any of the unprotect actions are successful in removing protections.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    47 views1 page

    Skript Pembuka Password Excel

    Uploaded by

    AMP SOCIAL
    The document contains code that attempts to automatically uncover internal passwords in a workbook by systematically cycling through all possible character combinations for 13 variables and using those combinations to unprotect both the active workbook and active sheet. It exits the subroutine if any of the unprotect actions are successful in removing protections.

    Copyright:

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

    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

    You might also like