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

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

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

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

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

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

1. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

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 أعلاه، “combine” هو اسم المصنف الذي تريد التحقق منه، ويمكنك تغييره حسب الحاجة.

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

إذا لم تكن على دراية بـ VBA، يمكنك التحقق مما إذا كان المصنف مفتوحًا باستخدام Kutools لـ Excel، من خلال لوحة التنقل الخاصة به، والتي ستساعدك على رؤية جميع المصنفات المفتوحة بوضوح في قائمة المصنفات الموجودة في اللوحة.

بعد تثبيت Kutools لـ Excel مجانًا ، يرجى القيام بما يلي:

1. انقر Kutools > Navigation لتمكين لوحة التنقل. انظر الصورة:

2. ثم انقر Workbook & Sheet لتوسيع اللوحة والانتقال إلى Workbook & Sheet القسم. ويمكنك رؤية جميع المصنفات المفتوحة في القائمة العلوية. انظر الصورة:

مع لوحة التنقل، يمكنك أيضًا التبديل بسرعة بين المصنفات أو الأوراق في القائمة.

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

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