Açık olan Google Chrome sayfalarını kapatmak

[mozdem]

Merhabalar;

Makro ile aşağıdaki kodu kullanarak İnternet Explorer browserlarını kapatıyorum. Ancak ben tüm internete giren browserları (Yandex,Google Chrome vs) kapatmak istiyorum. En azından Google Chrome browserini kapatayım. Ancak burada çalışan programlardan yada diğer açık olan pencereleri kapatmasın.

 '***** İnternet explorer kapat
                    Dim Shell As Object
                        Dim IE As Object
                        Dim ii As Variant
                     
                        Set Shell = CreateObject("Shell.Application")
                     
                        ii = Shell.Windows.Count
                        Do While ii > 0
                            ii = ii - 1
                            Set IE = Shell.Windows(ii)
                            If TypeName(IE.document) = "HTMLDocument" Then IE.Quit
                        Loop

Teşekkürler..

 

[ÖmerBey]

Merhaba,
Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/f48/googlechrome-acma-kapama-makrosunda-hata-t132738.html
Sanırım isteğiniz #6 nolu mesajda...

 

[mozdem]

Merhaba,
Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/f48/googlechrome-acma-kapama-makrosunda-hata-t132738.html
Sanırım isteğiniz #6 nolu mesajda...

teşekkürler

 

[Murat OSMA]

Alternatif;

[FONT="Trebuchet MS"]Sub Emre()
    Dim NameSpace As Object, Classes As Object, Program As Object
    Set NameSpace = GetObject("winmgmts:\\" & "." & "\root\[COLOR="red"]CIMV2[/COLOR]")
    Set Classes = NameSpace.ExecQuery("SELECT Name FROM [COLOR="red"]Win32_Process[/COLOR]", , 48)
    On Error Resume Next
    For Each Program In Classes
        If Program.Name = "[COLOR="red"]chrome.exe[/COLOR]" Then
            [COLOR="red"]Program.Terminate 0[/COLOR]
        End If
    Next
    Set NameSpace = Nothing: Set Classes = Nothing: Set Program = Nothing
End Sub[/FONT]