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

كيفية تشغيل ماكرو VBA عند فتح المصنف أو إغلاقه؟

في كثير من الحالات ، قد نستخدم رمز VBA لتحقيق العمليات التي لا تدعمها وظائف Excel المضمنة. ولكن هل سبق لك أن حاولت تشغيل ماكرو VBA في كل مرة تقوم فيها بفتح المصنف أو إغلاقه. في هذه المقالة ، سأخبرك بكيفية تشغيل كود فبا أثناء فتح أو إغلاق المصنف في كل مرة.

قم بتشغيل التعليمات البرمجية لـ VBA عند إغلاق المصنف أو فتحه


قم بتشغيل التعليمات البرمجية لـ VBA عند إغلاق المصنف أو فتحه

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

2. نقرتين متتاليتين ThisWorkbook في المشروع - VBAProject جزء لفتح ThisWorkbook (كود) نافذة.
كود تشغيل doc عند الفتح أو الإغلاق 1

2. في نافذة التعليمات البرمجية ، حدد مصنف من القائمة المنسدلة اليسرى. لاحظ أن ملف ساعات العمل سيتم عرضه في القائمة المنسدلة اليمنى ، إذا لم يكن كذلك ، فقم بتغييره إلى ساعات العمل.
كود تشغيل doc عند الفتح أو الإغلاق 2

3. ثم انسخ الكود الخاص بك بدون السطر الأول والأخير والصقه بينهما Private Sub Workbook_Open() و End Sub كما هو موضح أدناه لقطة الشاشة.
كود تشغيل doc عند الفتح أو الإغلاق 3

4. ثم اضغط حفظ لحفظ الكود ، في مربع حوار التذكير المنبثق ، انقر فوق لا.
كود تشغيل doc عند الفتح أو الإغلاق 4

5 ثم أ حفظ باسم ينبثق الحوار ، احفظ الملف بتنسيق مصنف Excel ممكن بماكرو وحدد مجلدًا لوضع الملف.
كود تشغيل doc عند الفتح أو الإغلاق 5

6. انقر حفظ زر. الآن سيتم تشغيل الرمز أثناء فتح المصنف.

إذا كنت تريد تشغيل التعليمات البرمجية أثناء إغلاق المصنف في كل مرة ، فحدد عطّل من القائمة المنسدلة اليمنى في رمز ، وانسخ الكود الذي ستقوم بتشغيله والصقه بينه Private Sub Workbook_Deactivate() و End Sub.

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

🤖 مساعد 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello,

I have used this VBA code with some success. I find that when I am working on more than one workbook at a time, each time I switch the focus from the macro enabled workbook to another workbook, the macro is run. I don't want it to run until I actually manually "CLOSE" the file. Do you now how I can accomplish that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations