mozdem
Altın Üye
- Katılım
- 11 Kasım 2005
- Mesajlar
- 452
- Excel Vers. ve Dili
-
Windows 2011 TR
MS Office 365 TR - 64bit
VBA, Selenium ve VBS
- Altın Üyelik Bitiş Tarihi
- 08-04-2026
Görev yöneticisinde Uygulamalar bölümünde görünen (çalışan) programları/dosyaları nasıl listeleyebiliriz. Bu sitede araştırma yaptım. aşağıdaki koddan yararlanmaya çalıştım ama yapamadım. yardımlarınızı bekliyorum. (listelemek olmayabilir. Uygulama çalışıyor, Yada kapalı mesaj vermesi yeterli)
Kod:
Sub word_kapat()
On Error Resume Next
Set wrd = GetObject(, "word.Application")
If Err.Number <> 0 Then
MsgBox "Dosya kapalı.", vbInformation
Else:
MsgBox "Açık"
End If
End Sub
Ekli dosyalar
-
172.5 KB Görüntüleme: 5