Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


تحقق مما إذا كان المصنف مفتوحًا أو مغلقًا باستخدام 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 ، وينبثق مربع حوار لتذكيرك بأن المصنف المحدد مفتوح أم لا.
doc تحقق مما إذا كان الملف مفتوحًا 1     doc تحقق مما إذا كان الملف مفتوحًا 2

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


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

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

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

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

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

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

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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (5)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ممتاز VBA ، يعمل بشكل رائع. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع ، سوبر VBA ، بسيط ويعمل. شكراً جزيلاً :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط تريد التأكد من أن الجميع على دراية ، فإن وظيفة "IsWorkBookOpen" ستكون قادرة فقط على معرفة ما إذا كان المصنف مفتوحًا في المثيل الحالي من Excel. إذا كان لديك عدة مثيلات مفتوحة ، فستحتاج إلى تشغيلها على كل مثيل للتأكد من أن المصنف (ليس) مفتوحًا ، باستخدام هذا الرمز وحده.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتذكيرك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أقوم بإضافة هذا إلى الكود الخاص بي ولكن لدي بعض المشكلات ...

أستخدم وظيفتك للتحقق مما إذا كان المصنف الذي يحتوي على بعض المعلومات مفتوحًا بالفعل أم لا ، وإذا كان مفتوحًا ، فإن مربع الماكرو msgbox للمستخدم ، ويطلب منه إغلاق المصنف وإعادة تشغيل الماكرو ، حتى هنا ، كل شيء على ما يرام ، المشكلة هي أنه بعد إغلاق المصنف وإعادة تشغيل الماكرو ، فإنه يظل يقول أن المصنف مفتوح في حين أنه ليس كذلك ، أي تلميحات؟


رمز:


Sub Check_BKG ()

تعيين وا = لا شيء

Confirmação = MsgBox ("Deseja realizar a checagem de dados؟"، vbYesNo + vbExclamation، "Aviso Macro")
إذا كان Confirmação = vbNo ثم اخرج من Sub

------------------------------------------------- ------------------------------------------- '
'//////////////////////////// CHECANDO SE EXSH JÁ ESTA ABERTO \\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\ '
------------------------------------------------- ------------------------------------------- '
خافت xRet كـ منطقي
xRet = IsWorkBookOpen ("EXSH0101.xlsx")
إذا xRet ثم
MsgBox "O arquivo EXSH0101 já está aberto، por favor، feche o arquivo antes de التنفيذ a macro novamente."، vbInformation، "ERRO EXSH0101"
'MsgBox "الملف EXSH0101 مفتوح بالفعل ، يرجى إغلاقه قبل إعادة تشغيل الماكرو." ، vbInformation ، "EXSH0101 ERROR"
خروج الفرعية
إنهاء حالة
------------------------------------------------- ------------------------------------------- '
'//////////////////////////////////////////////// \\\\\ \ '
------------------------------------------------- ------------------------------------------- '

مع التطبيق
.EnableEvents = خطأ
.ScreenUpdating = خطأ
انتهت ب

استدعاء Abrir_Arquivos

استدعاء Setando_EXSH

اتصل Inserir_Formulas

مع التطبيق
.EnableEvents = صحيح
.ScreenUpdating = صحيح
انتهت ب

أوراق ("Inserir"). تنشيط

نهاية الفرعية
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL