غلق ملف نهائي

[خالد الشاعر]

السادة الخبراء

 

عندى ملف اكسل 2007 و يندوز 7

 

الملف به ماكرو غلاق نهائي للاكسل

 

ولكن يعطى خطاء عند الضغط على زر الغلق

 

ولكن من جوة الماكرو يغلق نهائي من غير اى مشكلة

 

فما هى المشكلة 

 

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

Main.rar

[إبراهيم ابوليله]

اخى

جرب حزف

هذا السطر من الكود

Application.Quit

ليصبح كالاتى

Sub Close1()
 
    Sheets("Welcom").Range("A50") = 0
    Sheet1.Activate
    Application.DisplayFullScreen = False

    ActiveWorkbook.Close SaveChanges:=False
   
   End Sub

[خالد الشاعر]

استاذ ابراهيم

 

اشكرك على الاهتمام ولكن المشكلة مازالت قائمة

 

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

[إبراهيم ابوليله]

اخى

انا جربت الكود

شغال تمام

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته
أخي الفاضل حفظكم الله
بعد الآذن جرب الكود بهذا الشكل

Sub Close1()

Sheets("Welcom").Range("A50") = 0
Sheet1.Activate
Application.DisplayFullScreen = False
ActiveWorkbook.Save
Application.Quit

End Sub

والمعذرة عن أي تقصير

[خالد الشاعر]

شكراً للسادة الخبراء

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