اكسل فيجول بيسك

[gdairi]

ارغب في المساعدة في طريقة عمل الميكرو عند وضع كود حمايه لصفحة اكسل

 

[ابراهيم الأفندي]

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

1. أولاً ، قم بإنشاء ماكرو بسيط تريد حمايته.
Range("A1").Value = "This is secret code"
2. بعد ذلك ، انقر فوق أدوات ، خصائص VBAProject.

3. في علامة التبويب حماية ، حدد "قفل المشروع للعرض" وأدخل كلمة مرور مرتين



4. انقر فوق موافق.

5. احفظ وأغلق وأعد فتح ملف Excel. حاول عرض الكود.

سوف يظهر مربع الحوار التالي:


لا يزال بإمكانك تنفيذ التعليمات البرمجية بالنقر فوق زر الأمر ولكن لا يمكنك عرض أو تحرير التعليمات البرمجية (ما لم تكن تعرف كلمة المرور). كلمة المرور الخاصة بملف Excel القابل للتنزيل هي "سهلة".

6. إذا كنت ترغب في حماية كلمة المرور من الماكرو أعدم، قم بإضافة الأسطر التعليمات البرمجية التالية:


النتيجة عند النقر فوق زر الأمر الموجود على الورقة:


تفسير: يستخدم الماكرو أسلوب InputBox كائن التطبيق. إذا قام المستخدمون بالنقر فوق "إلغاء الأمر" ، ترجع هذه الطريقة False ولا يحدث أي شيء (يختفي InputBox). فقط عندما يعرف المستخدم كلمة المرور ("سهل" مرة أخرى) ، سيتم تنفيذ الشفرة السرية. إذا كانت كلمة المرور المُدخلة غير صحيحة ، يتم عرض MsgBox. لاحظ أن المستخدم لا يمكن إلقاء نظرة على كلمة المرور في Visual Basic Editor لأن المشروع محمي من يتم عرضها.

 

[gdairi]

شكرا علي الرد
ولكن المقصود عندي مايكرو يعمل وميض للخلية بتغير اللون وعند وضع حماية لعدد من الخلايا التي لا ارغب في تغيره لايعمل الوميض

واذا ممكن ارسل لك علي الخاص الموضوع كامل

 

[gdairi]

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

 

[حاوية نفايات]

ستجدهم إن شاء الله تعالى.