إمكانية فتح ملف إكسل معين مع إغلاق أي ملف إكسل آخر تلقائياً بالكود

[ابوالزوز]

السلام عليكم ..

أخواني وأساتذتي الأفاضل

أرجو مساعدتي في حل هذه المشكلة التي أواجهها دائماً مع أي ملف إكسل أقوم بتصميمه بالـ VBA :

ليكن لدينا ملف إكسل رمزه X والمطلوب هو عدم إمكانية فتح أي ملف إكسل آخر بوجود الملف X مفتوحاً

كذلك عند فتح الملف ِX بوجود ملفات إكسل مفتوحة يجب إغلاق هذه الملفات تلقائياً مع ظهور رسالة

الحفظ قبل إغلاقها وترك الملف X مفتوحاً

وشكراً جزيلاً لكم ..

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

- -

اخي في المرفق حل على قدر معرفتي

- -

اضغط على الزر يتم حفظ و رغلاق كامل الملفات الأخرى

- -

يمكنك نقل الكود الى مكان بدأ التشغيل في الملف لكي يتم تفعيله تلقائيا

- - -

مع التحية

- - -

mee.rar

[A L M A I S T R O]

الحل بسيط جدا اخى الكريم

افتح ملف الاكسيل المراد

ثم ضع هذا الكود فى حدث Deactivate للـ Workbook

Private Sub Workbook_Deactivate()

On Error GoTo 1

If ActiveWorkbook.CodeName = "ALMAISTRO" Then Exit Sub

If BookName <> ActiveWorkbook.Name Then

If MsgBox("هل تريد حفظ التغيرات التي أجريتها على '" & ActiveWorkbook.Name & "'؟ ", vbExclamation + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then

ActiveWorkbook.Save

Else

ActiveWorkbook.Saved = True

End If

ActiveWorkbook.Close

End If

Exit Sub

1:

MsgBox "لن يتم حفظ التغيرات"

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

End Sub

مع العلم ان اسم ملف العمل فى محرر ال VB هو almaistro وتستطيع تغييرة كما تريد

[ابوالزوز]

جزاكما الله خيراً أخي أحمد وأخي المايسترو على الإهتمام بالموضوع وشكراً على هذا المجهود الطيب

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

بالحفظ أو عدمه للملف الأساسي وذلك بعدإغلاق جميع الملفات الثانوية بحيث يبقى مفتوحاً فأنا لا أريد إغلاقه

ولقد قمت بوضع الكود Cancel=True في الحدث Beforeclose للملف الأساسي وقد حلت المشكلة مؤقتاً لكن مع ظهور مشكلة

عدم إمكانية إغلاقه أي أن زر الخروج قد ألغي ولا أريد وضع زر للخروج في الملف فهل من حل لهذه المشكلة

أرجو أن لا أكون قد أثقلت عليك بطلبي

شكراً لك أخي العزيز

تقبل تحياتي

تم تعديل سبتمبر 26, 2010 بواسطه abuzzouz

[A L M A I S T R O]

رسالة المطالبة بالحفظ تظهر فقط فى حالة فتح اى ملف اخر وليس الملف الرئيسى

هذا ما فهمتة من سؤالك

[ابوالزوز]

شكراً جزيلاً أخي المايسترو على الاهتمام بالموضوع

لقد قمت بحل المشكلة بإيقاف إغلاق الملف الرئيسي ووضع زر خروج عوضاً عنه

تقبل تحياتي