اذهب الي المحتوي
أوفيسنا

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


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

عليكم السلام

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

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

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

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

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

تحياتي لك

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information