كيفية التحقق بسرعة مما إذا كان الملف (المصنف) مفتوحًا أو مغلقًا في Excel؟

يعمل Excel يوميًا ، فتفتح العديد من المصنفات في نفس الوقت للعمل ، ولكن في بعض الأحيان ، قد تعبث مئات المصنفات برأسك لتتذكر ما إذا كان مصنف معين مفتوحًا أم مغلقًا. تخلى عن الطريقة التقليدية لفحص الملفات واحدًا تلو الآخر ، هنا أقدم لك الحيل للعثور بسرعة على مصنف مفتوح أو مغلق.

تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA

تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools for Excel

تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام VBA

إليك رمز VBA الذي يمكنك تشغيله للتحقق مما إذا كان مصنف معين مفتوحًا أم مغلقًا.

1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة ثم انسخ VBA والصقه في ملف وحدة نافذة.

فبا: تحقق مما إذا كان المصنف مفتوحًا أم مغلقًا

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. والصحافة F5 مفتاح لتشغيل هذا vba ، وينبثق مربع حوار لتذكيرك بأن المصنف المحدد مفتوح أم لا.
    

تلميح: في VBA أعلاه ، "دمج"هو اسم المصنف الذي تريد التحقق منه ، يمكنك القيام بذلك حسب حاجتك.

تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام Kutools for Excel

إذا لم تكن معتادًا على VBA ، فيمكنك التحقق مما إذا كان المصنف مفتوحًا بواسطة كوتولس ل إكسيل، بما في ذلك قائمة الإختيارات ، الذي سيساعدك في عرض جميع المصنفات المفتوحة بوضوح في قائمة المصنفات في الجزء.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس > قائمة الإختيارات لتمكين جزء التنقل. انظر لقطة الشاشة:

2. ثم اضغط مصنف وورقة لتوسيع الجزء للانتقال إليه مصنف وورقة الجزء. ويمكنك عرض كافة المصنفات المفتوحة في القائمة العلوية. انظر لقطة الشاشة:

بدافع قائمة الإختيارات في الجزء ، يمكنك أيضًا التبديل بسرعة بين المصنفات أو الأوراق في القائمة.

انقر هنا لمعرفة المزيد عن التنقل.

العرض التوضيحي: كيفية إنشاء قائمة ديناميكية لأسماء الأوراق في Excel؟