كيفية إلغاء قفل ملف اكسل محمي بكلمة مرور.
بعض المرات قد تجد في الأنترنت ملفات أكسل محمية بكلمة مرور للحد من صلاحيتك في التعديل عليها مما قد يتطلب منك الى دفع مبالغ اضافة او محاولة نسخ محتويات الملف وتطبيقه على ملف آخر مما قد يأخذ من وقتك مدة طويلة لتنفيذه.
الطريقة التي سوف نقوم بشرحها في هذا المقال بأذن الله سوف تكون كفيلة فرصة لفتح القفل على ملفات الأكسل بدون تعقيدات او برامج تطلب مبالغ لأستخدامها
فتح قفل ملف أكسل عن طريق كود برمجي
- اضغط ALT + F11 أو انقر فوق عرض التعليمات البرمجية في علامة تبويب المطور.
ملاحظة : بشكل افتراضي ، لا يتم عرض علامة تبويب المطور كخيار في قائمة Excel. يمكنك إضافته باتباع الخطوات الموضحة في بالأسفل
(افتح قائمة الملف وختر خيار الخيارات -> اختر قائمة (تخصيص الشريط) -> فعل خيار المطور)
نكمل خطوات الطريقة الأولى
بعد هذا سوف تجد قائمة المطور في أعلى قائمة الأكسل
اختر View Code أو أظهر الكود البرمجي حتى يقوم بفتح لك صفحة جديدة لوضع الكود البرمجي
- انقر نقرًا مزدوجًا فوق ورقة العمل المحمية بكلمة مرور.
- انسخ الكود الموجود بالأسفل والصقه. (لا تغير أي كود ، فقط انسخه والصقه كما هو.)
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub- انقر فوق زر التشغيل أو اضغط على F5.
إذا نجحت هذه الطريقة وتمكنت من إلغاء حماية ورقة العمل الخاصة بك ، فستظهر نافذة منبثقة صغيرة تقول “كلمة مرور هي XXXYYYZZZXXXY”. على سبيل المثال
