اغلاق ملف اكسيل برمجيا

[تامر خليفه]

مرحبا للجميع

كيف استطيع اغلاق ملف اكسيل من خلال الكود في حدث معين

ولكم كل الشكر

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

اتفضل استاذ تامر

Sub Close1()
 
    Application.Quit
    ActiveWorkbook.Close SaveChanges:=False
   
   End Sub

 

[تامر خليفه]

ممتاز

شكرا جزيلا استاذ خالد

 

[محمد طاهر عرفه]

أجب ان اضيف انه في حالة الرغبة في غلق الملف دون غلق تطبيق الاكسيل نفسه ، في حال اذا كان اكثر من الملف مفتوح مثلا

فيكتفي بالسطر الثاني فقط دون الأول

Private Sub closeme()
 ActiveWorkbook.Close True
End Sub

 

[تامر خليفه]

2 دقائق مضت, محمد طاهر said:

أجب ان اضيف انه في حالة الرغبة في غلق الملف دون غلق تطبيق الاكسيل نفسه ، في حال اذا كان اكثر من الملف مفتوح مثلا

فيكتفي بالسطر الثاني فقط دون الأول

Private Sub closeme()
 ActiveWorkbook.Close True
End Sub

 

تماااااااام

الف شكر لحضراتكم جميعا

[محمد طاهر عرفه]

و طبعا

True  للحفط عند الاغلاق

False

 لعدم الحفظ

[تامر خليفه]

الف شكر لحضراتكم جميعا

وانا من خلال التجربه والفشل وصلت لكود اخر لنفس المهمه

Me.Close

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