لإظهار نافذة "تشغيل الماكرو" تلقائيا مع تشغيل الملف

[عمر أبو صهيب]

أطلب من الإخوة الكرام إفادتي عن طريقة لجعل نافذة تفعيل الماكرو تظهر تلقائيا مع تشغيل ملف الإكسل الذي أنشأته .

و جزى الله خيرا كل القائمين على المنتدى و أعضائه الذي يسعون جاهدين على إفادة الآخرين مما علمهم الله .

تم تعديل فبراير 26, 2013 بواسطه دغيدى

[حمادة عمر]

السلام عليكم

الاخ الكريم / عمر أبو صهيب

 

راجع الرابط التالي موضوع هام للاستاذ العلامة القدير / عبدالله باقشير

بعنوان (عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو )

اليك الرابط ... سيفيدك في هذا الموضوع جدا ( ان شاء الله )

http://www.officena.net/ib/index.php?showtopic=42107

 

جزاك الله خيرا

 

 

[عمر أبو صهيب]

السلام عليكم

الاخ الكريم / عمر أبو صهيب

 

راجع الرابط التالي موضوع هام للاستاذ العلامة القدير / عبدالله باقشير

بعنوان (عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو )

اليك الرابط ... سيفيدك في هذا الموضوع جدا ( ان شاء الله )

http://www.officena.net/ib/index.php?showtopic=42107

 

جزاك الله خيرا

أحسن الله إليك أخي حمادة عمر على الرابط

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

تم تعديل فبراير 26, 2013 بواسطه دغيدى

[حمادة عمر]

السلام عليكم

الاخ الكريم / عمر أبو صهيب

كلنا هنا لنتعلم ونعلم بعضنا البعض

وكل منا يرشد الآخر للذي يعرفة

فهذا ما تعلمناه من اساتذه هذا الصرح لعملاق

وبالطبع علي رأس الجميع الاستاذ الخبير / عبد الله باقشير

جزاك الله خيرا

[عمر أبو صهيب]

السلام عليكم

الاخ الكريم / عمر أبو صهيب

كلنا هنا لنتعلم ونعلم بعضنا البعض

وكل منا يرشد الآخر للذي يعرفة

فهذا ما تعلمناه من اساتذه هذا الصرح لعملاق

وبالطبع علي رأس الجميع الاستاذ الخبير / عبد الله باقشير

جزاك الله خيرا

نورك الله أخي حمادة و أحسن إليك

إنما صادفت مشكلا بعد استعمال كود أخينا عبد الله

Option Explicit


Sub Auto_Open()
kh_wVisible True
End Sub

Sub Auto_Close()
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub


Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

 

هو أنه الملف يقوم بحفظ التعديلات التي أقوم بها تلقائيا و لا تظهر نافذة ( هل تريد حفظ التغييرات التي أجريتها أم لا) بل يغلق مباشرة مع الحفظ .

[عمر أبو صهيب]

معذرة  ... ربما لم أفهم جيدا المقصود من الكود ... و هو ليس المقصود من طلبي

طلبي جزاكم الله خيرا و بارك فيكم و في أمثالكم

 

عندما أفتح الملف أريد أن يعطيني النافذة التالية :

 

 

فعندما يتم اختيار "تفعيل الماكرو" يفتح الملف و عندما يتم اختيار "تعطيل الماكرو" يغلق الملف .

 

عند اختيار " تفعيل الماكرو" و فتح الملف أقوم بإجراء تغييرات ... و عندما أريد الإغلاق يجب أن يعطيني النافذة الاعتيادية التالية :

 

 

حتى أختار بين "حفظ" أو "عدم الحفظ" أو "إلغاء" .

أرجو أن تكون الفكرة واضحة أحسن الله إليكم.

[عمر أبو صهيب]

ما زلت أبحث عن الحل لكنني لم أوفق بعد

بارك الله فيكم

[عمر أبو صهيب]

للرفع و التحديث

[رشراش علي]

واني معك من المنتظرين رغم اني من المبتدئين جدا جدا جدا

=================================   وستوفق ان شاء الله ولو بعد حين.... خذها من رجل لا ينكر جميل اساتذتنا في اوفيسنا

تم تعديل أبريل 7, 2015 بواسطه رشراش علي