Using Excel to close other applications

[PinpointJimbo]

Hi,

I was wondering if there is a simple macro that can close other applications open in Windows, leaving Excel the only app open?

Cheers

 

[Haluk]

Try this;

Sub Test()
    Dim Prog As Object
    Dim objWMIService As Object
    Dim RunningProcesses As Object
    Dim strComputerName As String
    Dim strNameSpace As String
    Dim strClassName As String

    strComputerName = "."
    strNameSpace = "root\cimv2"
    strClassName = "win32_process "
    
    On Error Resume Next
    If Err.Number <> 0 Then
        MsgBox "WMI is not installed! Code will be terminated...", vbExclamation, _
             "Windows Management Instrumentation"
        Exit Sub
        On Error GoTo 0
    End If
    
    Set objWMIService = GetObject("winmgmts:\\" & strComputerName & _
                        "\" & strNameSpace)
    Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)
    For Each Prog In RunningProcesses
        If Not LCase(Prog.Name) Like "excel*" Then Prog.terminate
    Next
End Sub

 

[PinpointJimbo]

Worked a treat! Many thanks.