معرفة النوافذ المفتوحة

[Mohammed Farid]

السلام عليكم

أرجو من الإخوة الكرام كود لمعرفة عناوين النوافذ المفتوحة سواء كانت هذه النوافذ خاصة بملفات إكسل أو غيرها من البرامج

[ياسر خليل أبو البراء]

أخي الفاضل

كل ما لدي هو الكود التالي الذي يقوم بعمل قائمة بالنوافذ المفتوحة (المصنفات المفتوحة)

قم بفتح أكثر من مصنف ..

ادخل لمحرر الأكواد عن طريق الضغط على Alt+F11

أدرج موديول جديد وأضف الكود التالي

Sub ListWindows()
    Dim wn As Excel.Window
    For Each wn In Application.Windows
        Debug.Print wn.Caption
    Next wn
End Sub

قم بالضغط على Ctrl + G لإظهار النافذة الفورية ..

قم بالضغط على F5 لتشغيل الكود ..(مؤشر الماوس في الكود)

[ياسر خليل أبو البراء]

أخي الحبيب جرب الملف التالي

 

List All Windows.rar

[Mohammed Farid]

شكرا لك أخ ياسر

هل يمكن إظهار النوافذ المفتوحة فقط بجوار قائمة إبدأ وليس كل العمليات التى تجرى داخل الجهاز

شكرا لردك الكريم

تم تعديل ديسمبر 3, 2014 بواسطه Mohammed Farid

[ياسر خليل أبو البراء]

جرب هذا أيضا لربما يفيدك

Processes To Sheet.rar

[ياسر خليل أبو البراء]

شكرا أخى الكريم

هذا الكود يقوم بإظهار نوافذ إكسل فقط

أنا أستخدم لغة #C ويوجد بها كود لإظهارجميع النوافذ بإستخدام API

كنت أتسائل إذا كان يوجد نفس الشىء فى VBA

شكرا لك مرة ثانية

هل رأيت المشاركة رقم 3 ورقم 5 ؟

[Mohammed Farid]

رأيت المشاركات أخى العزيز وشكرا لك على جهدك الكريم 

الملفين الذين تكرمت بإرفاقهما يقومان بإظهار جميع العمليات التى تجرى داخل الجهاز بما فيها النوافذ المفتوحة

شكرا جزيلا لك