انتقل إلى المحتوى الرئيسي

كيفية استرداد كلمة مرور حماية ورقة العمل المفقودة في Excel؟

نقوم دائمًا بتعيين كلمات مرور لحماية بعض أوراق العمل المهمة من التلف أو التعديل بواسطة الآخرين. لكن إذا نسيت كلمات المرور الخاصة بك ، كيف يمكنك أن تفعل؟ لحسن الحظ ، يدعم Excel بعض أكواد VBA لاستعادة كلمة مرور حماية ورقة العمل المفقودة. يمكنك التعامل مع هذه المشكلة على النحو التالي:

استرجع كلمة مرور حماية ورقة العمل المفقودة في Excel باستخدام كود VBA
المزيد من البرامج التعليمية لحماية ورقة العمل ...


استرجع كلمة مرور حماية ورقة العمل المفقودة في Excel باستخدام كود VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إلغاء كلمات المرور الأصلية بسرعة في ورقة العمل.

1. افتح ورقة العمل الخاصة بك المحمية من قبل.

2. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: استعادة كلمة مرور حماية ورقة العمل المفقودة

Sub PasswordRecovery()
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

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسوف يظهر مربع موجه ، انقر فوق OK لإغلاقه ، وسيتم إلغاء كلمات المرور الخاصة بورقة العمل المحمية مرة واحدة.

الملاحظات:

1. باستخدام هذا الرمز ، يمكنك فقط استعادة كلمة مرور واحدة لحماية ورقة العمل في كل مرة ، إذا كانت هناك أوراق عمل محمية متعددة ، فأنت بحاجة إلى تطبيق هذا الرمز واحدًا تلو الآخر.
2. الكود أعلاه يأتي من http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.


قم بحماية أوراق عمل متعددة بسهولة في نفس الوقت بكلمة مرور في Excel:

حماية أوراق العمل فائدة كوتولس ل إكسيل يمكن أن تساعدك على حماية أوراق عمل متعددة مجمعة بنفس كلمة المرور. كما يوفر أداة مساعدة لإلغاء حماية أوراق العمل هذه في نفس الوقت. قم بتنزيل الإصدار المجاني الكامل من Kutools for Excel لمدة 30 يومًا الآن!


مقالات ذات صلة

كيف تحمي أوراق عمل متعددة في وقت واحد في إكسيل؟

كيفية إلغاء حماية أوراق عمل متعددة مرة واحدة في Excel؟

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (99)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What is the Macro name?
This comment was minimized by the moderator on the site
Even using this code below, I continue to receive this message: (When I running that code on Excel 365, I got this message error:
Runtime '1004'
The password you supplied is not correct. Verify that the CAPS LOCK key is off and be sure to use the correct capitalization.
Please if you can help me on this.
thank you very much)
Sub PasswordRecovery()
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
This comment was minimized by the moderator on the site
Hello, Jose,
If the VBA code can't work well in Office 365, maybe the following article can help you, there are two methods in that article, please check it:
https://www.extendoffice.com/documents/excel/7179-excel-unprotect-all-sheets-without-password.html
Thank you!
This comment was minimized by the moderator on the site
When I running that code on Excel 365, I got this message error:
Run-time '1004'
The password you supplied is not correct. Verify that the CAPS LOCK key is off and be sure to use the correct capitalization.
Please if can help me on this.
thank you very much
This comment was minimized by the moderator on the site
The tip to recover my password says to open the Excel document. Without the password I cant open it, so how does this work?
This comment was minimized by the moderator on the site
Il existe de nombreux programmes pour récupérer le mot de passe des fichiers Excel. J'utilise Manyprog Excel Password Recovery. C'est rapide et facile à utiliser. https://fr.manyprog.com/excel-password-recovery.php
This comment was minimized by the moderator on the site
Hi. I've got Microsoft 365 . Does it work too ?I tried, but for now couldn't open my xlsx files..
This comment was minimized by the moderator on the site
Thank you! After saving it as an Excel 91-2003 (.xls) doc, I was able to use this to unlock all the worksheets within the workbook. Literally saved me so much time.
This comment was minimized by the moderator on the site
This does not appear to work. It only generates passwords with As, Bs and something else at the end. What am I missing?
This comment was minimized by the moderator on the site
This algorithm doesn't work. Only generates PWs with As, Bs and something different at the end. What am I missing?
This comment was minimized by the moderator on the site
Hay muchos programas para recuperar la contraseña de los archivos de Excel. Estoy usando Manyprog Excel Password Recovery. Es rápido y fácil de usar. https://es.manyprog.com/excel-password-recovery.php
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations