طريقة مشروطة لإغلاق ملف إكسل

[ابوالزوز]

السلام عليكم ،،

أخواني الأعزاء .. موضوع حاولت به إلا أنني لم أوفق

الموضوع باختصار : هل يوجد كود إغلاق مشروط يمكن أن نضعه في زر يقوم بإغلاق الملف الحالي فقط دون أن يغلق برنامج الإكسل بالكامل

وذلك في حال وجود ملف آخر مفتوح (ThisWorkbook.Close)

أما في حال لا يوجد ملف آخرمفتوح فيمكن أن نغلق برنامج الإكسل بالكامل بما فيه الملف الحالي (Application.Quit)

كذلك هل يمكن إيقاف عمل زر إغلاق برنامج إكسل ( x )

تقبلوا تحياتي ..

[Bluemind]

اخوي جرب الكود التالي خلف زر الامر

    Dim i As Integer
     Dim wkb As Workbook
     For Each wkb In Application.Workbooks
         If wkb.Name <> "PERSONAL.XLS" Then
             i = i + 1
         End If
     Next wkb
     If i > 1 Then
         ThisWorkbook.Close True
     Else
         ThisWorkbook.Save
         Application.Quit
     End If

[ابوالزوز]

السلام عليكم ،،

مشاء الله عليك الله أستاذ knight22666 كود رائع فعلاً أشكرك جزيل الشكر

الله يزيدك من علمه ونعيمه كمان وكمان أنت وكل الأساتذة والخبراء الموجودين في هذا المنتدى الرائع

شكراً لكم جميعاً ..

وياليت أحد يفيدني في إمكانية إيقاف عمل زر إقفال برنامج الإكسل X وذلك دون الإضطرار لإخفاء الشريط الخاص به

شكراً لكم مرة أخرى

تم تعديل مايو 9, 2008 بواسطه abuzzouz

[ابوالزوز]

السلام عليكم ،،

أخواني الأعزاء هل من طريقة لجعل مسج الإغلاق تظهر فقط عند إغلاق

الملف الحالي فقط وليس كل الملفات المفتوحة

المرفق يوضح المطلوب

تقبلوا جميعاً تحياتي ..

abuzzouz_01.rar

[ابوالزوز]

---------- UP -----------

[قطان]

أخي الكريم عمل جيد

لكن لماذا لا يمكن اغلاق الاكسل ككل

إلا بعد استخدام زر الاغلاق للملف أولا

والسلام

[ابوالزوز]

السلام عليكم ،،

تفضل يأخي العزيز قطان إليك ما تريد وهو من أعمال أساتذة هذا المنتدى العظماء

اما بالنسبة لسؤالي السابق فهو بانتظار الردود

تقبل تحياتي ..

abuzzouz_01.rar