جدول المحتويات:
2025 مؤلف: John Day | [email protected]. آخر تعديل: 2025-01-13 06:56
إذا كنت قد نسيت كلمة مرور لإحدى أوراق عمل Excel الخاصة بك ، فأنت تعلم مدى إحباط ذلك. الكود المستخدم في هذه التعليمات هو واحد من أبسط الكود الذي وجدته. سيُنشئ رمزًا قابلاً للاستخدام سيفتح قفل الورقة المحمية. لا يمكنني الحصول على الفضل في الكود لأنني وجدته في لحظة الحاجة (ولا يمكنني العثور على مكان وجود الموقع بعد الآن) … لذلك لن أساعد كثيرًا إذا لم يعمل من أجلك ولكني نجحت في ذلك واعتقدت أنني سأشاركها.
الخطوة 1: افتح VBA
افتح ورقة العمل التي نسيت كلمة مرورك إليها ، واستخدم Alt + F11 للدخول إلى محرر الماكرو ، وبمجرد استخدام VBA ، انقر نقرًا مزدوجًا فوق الورقة التي تحتاج إلى فتحها من قائمة القائمة على اليسار ، وسيؤدي ذلك إلى فتح صفحة الإعلانات العامة للورقة.
الخطوة 2: قص ولصق رمز الكسارة
أدخل الكود أدناه في صفحة الإعلانات العامة التي فتحتها. لا يتعين عليك تغيير أي شيء ، اسم الورقة وما إلى ذلك … فقط قص ولصق. k كـ IntegerDim 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 إلى 66: لـ k = 65 إلى 66 لـ l = 65 إلى 66: لـ m = 65 إلى 66: لـ i1 = 65 إلى 66 لـ i2 = 65 إلى 66: لـ i3 = 65 إلى 66: لـ i4 = 65 إلى 66 لـ i5 = 65 إلى 66: لـ i6 = 65 إلى 66: لـ n = 32 إلى 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 ثم MsgBox "كلمة مرور واحدة قابلة للاستخدام هي" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) خروج Sub End إذا كان التالي: التالي: التالي: التالي: التالي: التالي: التالي: التالي: التالي: التالي: التالي النهاية Sub_
الخطوة 3: قم بتشغيل الماكرو
بمجرد إضافة الرمز ، قم بتشغيل الماكرو عن طريق تحديد تشغيل من شريط علامة تبويب القائمة أعلى شاشة محرر VBA أو الضغط على F5 ببساطة
الخطوة 4: استخدم الكود المُنشأ
سيعيدك الماكرو إلى ورقة العمل التي تريد إلغاء حمايتها. سيظهر مربع نمط تنبيه مع رمز قابل للاستخدام. في علامة تبويب قائمة المراجعة ، انقر فوق إلغاء حماية الورقة ، ثم أدخل الرمز الذي تم إنشاؤه ككلمة المرور وانتهى الأمر. يجب أن تكون الورقة مفتوحة! يجب أن تستخدم هذه القوة بحكمة ومسؤولية فقط لفتح أوراق العمل الخاصة بك.