X

فك شفرة ملفات الاكسل Excel Worksheet Password Recovery

Collapse
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة
  • vb
    عضو جديد
    • Sep 2018
    • 1355

    تجدون هنا طريقة فك شفرة ملفات الاكسل
    مع تحيات الزعيم لعامة الشعب
    Excel Worksheet Password Recovery
    Here is simple routine to recover password for worksheet (not the file password) and unprotect worksheets

    -----------------------------------cut below this line------
    Sub PasswordBreaker()
    'Author unknown
    '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
    -----------------cut above this line-----------------
    Procedure:
    start excel
    open the excel file you need to unprotect
    Start Visual Basic Editor: Tools -> Macro menu -> Visual Basic Editor
    Create a new module : Insert -> module
    Paste the above code in the module
    Close Visual Basic Editor
    Run the Macro named "PasswordBreaker" from Tools -> Macro menu
    This will give you a password that you can use to unprotect a worksheet
    If you have multiple worksheets, you need to run the macro in each worksheet.

    Enjoy

    The road to success is always under construction


    زعيم الاسكندرية

  • مشرف القسم الهندسي
    • Nov 2018
    • 1673

    #2
    الله يجزاك الخير
Working...
X