رسالة msgbox ادا كان الملف مفتوحا

[حسين مامون]

السلام عليكم اخوتي في الله

اخواني اساتذة هذا الصرح الرائع 

عندي ملفين اكسيل الاول اسمه"البرنامج الرئيسي" عملت فيه زر فتح الملف الثاني المسمى "المصاريف" وضعت للزر ماكرو يفتح  ملف "المصاريف" 

واريد ان شاء الله  اضافة رسالة   msg الى الماكرو  وهي ادا كان ملف " المصاريف" مفتوحا يعمل  exit sub

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

[حسين مامون]

اخواني ربما لم اشرح ما اريد جيدا

لنفترض ان عندي ملفين اكسيل مرطبطين فتحت المسمى "البرنامج الرئيسي" ثم فتحت الثاني المسمى "المصاريف" ومن غير قصد فتحت مرة اخرى "المصاريف"  وهنا اريد رسالة منع المستخدم  في فتح ملف مفتوح سابقا جزاكم الله خيرا

[أ / محمد صالح]

يمكنك استعمال هذه الدالة لفحص هل الملف مفتوح

Function IsWBOpened(FileName As String) As Boolean
    Dim xWb As Workbook
    For Each xWb In Application.Workbooks
    If xWb.Name = FileName Then IsWBOpened = 1: Exit Function
    Next
    IsWBOpened = 0
End Function

ويمكن استدعاؤها كالتالي

Sub test()
    If IsWBOpened("yourfile.xlsx") Then
        MsgBox "الملف مفتوح", vbInformation, "a1mas.com"
    Else
        MsgBox "الملف غير مفتوح", vbInformation, "a1mas.com"
    End If
End Sub

 

[حسين مامون]

اشكرك استادي محمد صالح 

ساجرب وارد ان شاء الله

[حسين مامون]

استادي الكود يعمل ولكن عندما اريد اغلاق الملف لا يخرج من application

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

[أ / محمد صالح]

تم اختصار الكود رجاء مراجعة تجربته

مع العلم أن الكود يقوم باختبار وجود الملف ضمن مجموعة المصنفات المفتوحة في إكسل

وليس له علاقة بموضوع إغلاق أو فتح الملف

ولا تنسونا من صالح دعائكم