اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابحث عن ماكرو يقوم بحفظ ثم اغلاق ملف الاكسل


الردود الموصى بها

عليكم السلام

الكود التالى يغلق الملف بعد حفظه بدون رسائل تحذير

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sheets(1).Range("a1") = 1 Then

with Application

     .ActiveWorkbook.Save

     .ActiveWorkbook.Close

     .DisplayAlerts = False

End With

End If

End Sub

أما فتح نفس الملف بعد إغلاقة!

فكيف سينفذ كود الفتح و الملف مغلق أصلا؟

ربما رزقنا الله علما فى هذا

Example-kemas.rar

تم تعديل بواسطه kemas
رابط هذا التعليق
شارك

هلا فيك kemas

الفكرة التي افكر فيها ... هي ان اضع الماكرو بملف يكون دائماً مفتوح

والملف الآخر الذي فيه خلية A1 هو الملف الذي يتم اغلاقه ثم فتحه ...

هل هذا ممكن ؟؟؟

تحياتي لك

رابط هذا التعليق
شارك

السلام عليكم

اخي Kemas

كلامك صحيح مائة بالمائة تبعا للمطلوب الاول

و لكن اخي pinkpanther

بناء علي طلبك

قم باغلاق الملف

ثم

قم بفتح نفس الملف

هل هذا ممكن ؟

اريد ان استفسر فقط لماذا بعد الحفظ والقفل

يعاد الفتح مرة اخري مادام انه بالفعل مفتوح فمن باب

اولي ان يتم الحفظ و عدم الاغلاق نرجوا شرح ما الهدف للمعلوميه فقط

تحياتي

رابط هذا التعليق
شارك

هلا فيك aah_aah2008

المشكلة ان ملف الاكسل مربوط بسيرفر ... والسيرفر يقطع احياناً

واذا قطع ما يتحدث ملف الاكسل حتى يتم اغلاقه وفتحه من جديد ...

هل بالامكان عمل ذلك بالماكرو ؟

تحياتي لك

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information