طلب مساعدة

[zaheratef]

السلام عليكم و رحمة الله و بركاته

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

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

أخي زاهر عطاف ..آسف كنت بموضوع آخر

تم تعديل أغسطس 9, 2015 بواسطه عبد العزيز البسكري

[محمد الزريعي]

لكسر ورقة العمل المحمية اخي استخدم الكود التالي

 

Sub PasswordBreaker()

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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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
 

1.  افتح ملف الاكسل المطلوب فك حماية صفحاته

2.  تحول الى صفحة تحرير الفيجوال VB Editor :Visual Basic Editor او للاختصار alt+F11

3.  ادرج نموزج جديد من قائمة Insert>>>Module

4. - ثم ضع الكود

5.  اغلق VB Editor

6.  انتقل لصفحة العمل الي حابب تكسرها

7.  فعل الماكرو الي عملتوو

8.  بتلاقيه بقائمة Tools>>Macro>>Macros وبعدين دبل كليلك على الماكرو الي عملتو

9.  بالنسبة للاكسل 2007 بتروح على قائمة View وبتلاقيه اخر اداة على اليمين اختار ماكرو وبعدين اختار الماكرو الي عملتو ودبل كليك
   
   ملاحظة : الباسورد الي بتطلع عن طريق هي العملية مو بالضرورة تكون نفس الباسورد الي تم حماية هالصفحة فيها وانما هوو بيخلق باسورد تفك الحماية وهي ناجحة 100%