Know if Windows Calculator is open or not

Magic_Doctor · Apr 32022

Hello,
By means of an iconto which a macro is assignedI open the Windows calculator when I click on this icon:

VBA Code:

Sub Calculatrice()
‘Excel 2007
    Shell "c:\windows\system32\calc.exe"
End Sub

It works very well.
The problem is that if I clickfor example10 times on the icon10 calculators will be opened. We can thus end up with a lot of open calculators… What I would like is that once the calculator is openwe can no longer open others. Is there a way to know if the calculator is open? Suppose this is possiblethen it would suffice to assign the result to a boolean variable (CalcOpen) and write this in the macro so that there can only be one open calculator:

VBA Code:

Sub Calculatrice()
    If CalcOpen Then Exit Sub
    Shell "c:\windows\system32\calc.exe"
End Sub

Thank you in advance for all responses.

Micron · Apr 32022

How to know (works in W10 as calculator.exe):

Determine if application is running with Excel

Goal Have an Excel file with a "Search" button that opens a custom program. This program is used for researches. If the program is already opened when the user clicks on the buttonmake it popup ...

stackoverflow.com

So if function returns truedo something. If that is to activate calculatorI don't know how.

This one might be better

Determine if an Application is Running | EnvisionCAD

Sometimes your VBA applications have to communicate with another Windows application. In those situations it is useful to know if the other application is running prior to passing data or […]

envisioncad.com

Micron · Apr 32022

Maybe something like this?

VBA Code:

Sub Calculatrice()
If IsCalcOpen Then
   AppActivate "calculator"
   Exit Sub
End If
Shell "c:\windows\system32\calc.exe"

End Sub

Function IsCalcOpen() As Boolean
Dim objList As Object

Set objList = GetObject("winmgmts:") _
    .ExecQuery("select * from win32_process where name='calculator.exe'")

CalcOpen = objList.count > 0

End Function

Can't stop anyone from opening another instance of calculator via the Windows task barso the idea has limitations.

Magic_Doctor · Apr 32022

Hello Micron,

Thanksil works!

VBA Code:

Function IsProcessRunning(process As String) As Boolean
    Dim objList As Object
  
    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & process & "'")
  
    IsProcessRunning = objList.Count > 0
End Function

VBA Code:

Sub Calculatrice()

    If IsProcessRunning("calc.exe") Then Exit Sub
    Shell "c:\windows\system32\calc.exe"
End Sub

Micron · Apr 32022

Great! You can mark this one as solvedI guess.

Know if Windows Calculator is open or not

Magic_Doctor

Board Regular

Micron

Well-known Member

Determine if application is running with Excel

Determine if an Application is Running | EnvisionCAD

Micron

Well-known Member

Magic_Doctor

Board Regular

Micron

Well-known Member

Similar threads

Share this page