كيف يمكنك التحقق مما إذا كان ملف عمل معيّن مفتوحًا في Excel أم لا؟
يمكنك فتح عدة ملفات عمل في آنٍ واحد. وإذا احتجتَ إلى التحقُّق مما إذا كان ملف عمل معيَّن مفتوحًا حاليًّا، يوفِّر لك VBA حلاً بسيطًا وفعّالًا. سيوضح لك هذا الدليل كيفية استخدام كود VBA للتأكُّد بسرعة من حالة فتح ملف العمل.
التحقق مما إذا كان ملف عمل مفتوحًا أم لا في Excel
التحقق مما إذا كان ملف عمل مفتوحًا أم لا في Excel
اتبع الخطوات التالية للتحقق مما إذا كان ملف العمل مفتوحًا في Excel أم لا.
1. اضغطAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications. في نافذةMicrosoft Visual Basic for Applications، انقرإدراج > وحدة نمطية.
2. بعد ذلك، انسخ والصق كود VBA أدناه في المحرر.
كود VBA: العثور على ما إذا كان ملف العمل مفتوحًا
Sub TrimExcessSpaces()
Dim xWBName As String
Dim xWb As Workbook
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
Set xWb = Application.Workbooks(xWBName)
If xWb Is Nothing Then
MsgBox "The Workbook is not open!"
Else
MsgBox "The Workbook is open!"
End If
End Sub3. الآن، اضغط مفتاحF5 لتشغيل الكود. في مربع الحوار المنبثقKutools for Excel، أدخل اسم المصنف الذي تريد التحقق منه، ثم انقر زرموافق. راجع لقطة الشاشة:
إذا كان ملف العمل المحدد مفتوحًا، فسيظهر مربع حوار يُبلغك بأن الملف مفتوح؛
وإلا، فسيظهر لك مربع الحوار أدناه إذا لم يكن ملف العمل المحدد مفتوحًا.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل