فك حماية ملف الاكسل او ورقة او خلية فى ملف الاكسل

[م. خالد البقار]

لدي ملف اكسل وبه حماية (كلمة سر) ونسيت الكلمة وهى مكونه من حروف وارقام عربية وانجليزية وعددها كبير وكذلك داخل هذا الملف تم حماية الورقة وبعض الخلايا

المطلوب كيف يمكن فك الحماية او معرفة كلمة السر

مع العلم استخدمة بعض البرامج المتخصص فى هذا الموضوع ولكن لم تنجح حيث تستغرق وقت طويل يصل الى ايام من البحث

هل توجد طريقة لمعرفة كلمة السر او فتح الملف سريعة

[الفدعاني]

ممكن ان يفيدك

[السيد عبد العال]

بطئ جدا ولكن للضرورة أحكام ......

بالإضافة إلى الوصلة الرائعة التى أشار إليها الأخ الفاضل الفدعانى:

إليكم كود لفتح الملف فى حالة نسيان كلمة السر - حتى 16 حرف

Sub OpenWithPWord()
 Dim I01 As Integer, I02 As Integer, I03 As Integer, I04 As Integer, I05 As Integer
 Dim I06 As Integer, I07 As Integer, I08 As Integer, I09 As Integer, I10 As Integer
 Dim I11 As Integer, I12 As Integer, I13 As Integer, I14 As Integer, I15 As Integer, I16 As Integer
 Dim XlsFileName As String, strPassWord As String
 Dim fd As FileDialog
  On Error Resume Next
  Set fd = Application.FileDialog(msoFileDialogOpen)
  With fd
    fd.AllowMultiSelect = False
    If .Show = -1 Then
      XlsFileName = .SelectedItems(1)
    Else
      Exit Sub
    End If
  End With
   If XlsFileName = "" Then Exit Sub
   Workbooks.Open Filename:=XlsFileName, Password:="", ReadOnly:=False
  If Err = 0 Then Exit Sub
  If Err <> 1004 Then
    MsgBox Err & "xx : " & Error
    Err.Clear
    Exit Sub
  End If
For I16 = 31 To 255
 For I15 = 31 To 255
  For I14 = 31 To 255
   For I13 = 31 To 255
    For I12 = 31 To 255
     For I11 = 31 To 255
       For I10 = 31 To 255
        For I09 = 31 To 255
         For I08 = 31 To 255
          For I07 = 31 To 255
           For I06 = 31 To 255
            For I05 = 31 To 255
             For I04 = 31 To 255
              For I03 = 31 To 255
               For I02 = 31 To 255
                For I01 = 32 To 255
     ' **********************************
        strPassWord = Chr(I01) _
                    + IIf(I02 > 31, Chr(I02), "") + IIf(I03 > 31, Chr(I03), "") + IIf(I04 > 31, Chr(I04), "") _
                    + IIf(I05 > 31, Chr(I05), "") + IIf(I06 > 31, Chr(I06), "") + IIf(I07 > 31, Chr(I07), "") _
                    + IIf(I08 > 31, Chr(I08), "") + IIf(I09 > 31, Chr(I09), "") + IIf(I10 > 31, Chr(I10), "") _
                    + IIf(I11 > 31, Chr(I11), "") + IIf(I12 > 31, Chr(I12), "") + IIf(I13 > 31, Chr(I13), "") _
                    + IIf(I14 > 31, Chr(I14), "") + IIf(I15 > 31, Chr(I15), "") + IIf(I16 > 31, Chr(I16), "")
          Application.StatusBar = strPassWord
           Workbooks.Open Filename:=XlsFileName, Password:=strPassWord, ReadOnly:=True
            If Err.Number = 0 Then
               Application.StatusBar = False
               MsgBox strPassWord
               Exit Sub
             Else
               Err.Clear
              End If
     ' **********************************
                 Next I01
                Next I02
               Next I03
              Next I04
             Next I05
            Next I06
           Next I07
          Next I08
         Next I09
        Next I10
       Next I11
      Next I12
     Next I13
    Next I14
   Next I15
  Next I16
End Sub

RmvFilePWord.xls

[م. خالد البقار]

شكر للاخوة على الرد السريع

ولكن تم الرد على جزء من السؤال وبالفعل تم تجريب الملف وهو يعمل بنجاح.

ولكن فى انتظار الاجابة عن باقى السؤال

كيف يمكن فتح ملف الاكسل بدون برنامج Password Recovery

[السيد عبد العال]

الحقيقة يا اخى الكريم لقد حاولت تتبع ال\اكسل فى طريقة كتابابته للملف

بمعنى اننى فتحت ملف اكسل مكتوب فيه كلمة واحدة وحفظته بدون password

ثم نفس الملف مع تغيير password

وذلك لحاولى 10 كلمات مختلفة

ثنم فتحتهم فى ال Binary Mod وقرات الكواد المقابلة أملا ان أعثر على المكان الذى يحفظ فيه الكسل كلمة السر وبالتالى يمكن بسهولة فتحته

ولكن أذهلتنى المفاجاة :

يقوم أكسل XP بلخبطة أكواد الملف تماما ماعدا الجزء الخاص Summary Information - ومكانه فى نهاية الملف كذلك المعلومات الأفتاحيية والتى يخزن فيها المعلومات عن نسخة الأكسل _ vergaion -

الأدهى من ذلك ان عملية اللخبطة تتم بمقادير غير ثابتة بمعنى مرة يزود 30 وبعدها ينقص 200

وهكذا

والأعجب أن لن الطريقة تختلف مغ اختلاف كلمة السر

الاستنتاج : لن يستطيع الأكسل نفسه فتح الملف بصورة إلا أذا كانت كلمة السر التى اعتطيت له صحيحة

وقد يهسل العملية أذا عرفت الطريقة اللىتى يلخبط بها الاكسل الملف

ولقد وضعت العشر ملفت وطرحتتهم من الملف الاصلى وظللت أحملق فى النتائج محاولا الوصول للعلاقة ولكن لم يممكنى ذلك ...

أذا ترغي اعطيك الماكرو التى استخدمتهه ا وجرب ربما فتح الله عليك بحل اللغز

وملحوظة : لتسريع الماكرو السابقة يمكن أجراء العملية علوى نظام ليس به Norton AntiVuis لأن معظم الوقت يضيع فى فى الفحص او محالولة الفحص .

,أرجو المعذرة هذا هو القدر الذى استعطته