غلق النوافذ المفتوحة

[Mohammed Farid]

السلام عليكم

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

وقد تفضل أ. ياسر خليل مشكورا بإرسال ملف(يوجد بالمرفقات) يقوم بعرض كل النوافذ والبرامج التى تعمل داخل الجهاز

ولى إستفسارين هما :

1- هل يمكن غلق أحد هذه النوافذ أو العمليات عن طريق الكود

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

 

ولكم جزيل الشكر

List All Windows.rar

[ابو تراب]

وعليكم السلام محمد

 

يمكنك اضهار جميع النوافذ المفتوحة عن طريق الكائن Word و بعدها تستطيع باستخدام الامر Taskkill (وهو احد اوامر النظام) لأغلاق النوافذ

 

Public Sub GetOpenWindows()
Dim WordApp
Dim Windows
Dim Window


Dim i As Integer


Set WordApp = CreateObject("Word.Application")
Set Windows = WordApp.Tasks


i = 2


Range("A2:A1000").ClearContents


For Each Window In Windows
في حالة ان النافذة مفتوحة احصل على عنوانها و ضعه على احد خلاياء الاكسل
   If Window.Visible Then
        Range("A" & i).Value = Window.Name
        i = i + 1
    End If
Next
WordApp.Quit
End Sub

بعدها يمكنك اختيار النافذه التى ترغب بأغلاقها 

 

كود اغلاق نافذة

 

Sub btnCLoseWindow()
Dim WindowTitle As String

هنا يتم تحديد عنوان النافذة التي اخترت
WindowTitle = Selection.Value
اغلاق النافذة
Shell "taskkill /FI ""WINDOWTITLE eq " & WindowTitle & """", vbHide
End Sub

 

Listing open windows and closing.zip

[Mohammed Farid]

شكرا أخى ابو تراب