opening calculator Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit

Private Declare Function OpenProcess Lib "kernel32" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
    ByVal lnghProcess As Long, _
    lpExitCode As Long) As Long

'// If your going to be working with Systems that support security
'// settings eg NT, XP the access will be checked against any
'// security descriptor for the target process, so use this Const
'// Sets all possible access flags for the process object.
Private Const PROCESS_ALL_ACCESS = &H1F0FFF

Public Function ShlProc_IsRunning(ShellReturnValue As Long) As Boolean
Dim lnghProcess As Long
Dim lExitCode As Long
Dim lRet As Long

'//Get the process handle
lnghProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, ShellReturnValue)
If lnghProcess  0 Then
    '// The GetExitCodeProcess function retrieves the
    '// termination status of the specified process.
    GetExitCodeProcess lnghProcess, lExitCode
    If lExitCode  0 Then
        '// Process still ALIVE!
        ShlProc_IsRunning = True
    Else
        '// YES...finished @ last
        ShlProc_IsRunning = False
    End If
End If

End Function

Sub ShellTester()
Dim RetVal As Long
'//
'// When you Shell out to an Application the Return Value
'// is the Applications Task ID
'// in order to determine if it has Terminated we need to check
'// if there is an existing process object
'//   > OpenProcess function opens an existing process object.
'//

On Error Resume Next
'// On WinXP Calc.exe @ C:WINDOWSSystem32
'// On Win9x Calc.exe @ C:WINDOWS
RetVal = Shell("C:WINDOWSSystem32CALC.EXE", 1)
On Error GoTo 0

If RetVal = 0 Then MsgBox "NoGo!" & vbCr & "Check your Path": End

'// Ok, lets loop until the App process is terminated!
Do While ShlProc_IsRunning(RetVal) = True
    DoEvents
Loop

MsgBox "Program finished!" & vbCr & "Lets continue on now!"

End Sub

No	Macro Name
1	opening calculator
2	giving and opening email links
3	userform perfect opening effect
4	pdf file opening window2
5	opening the desired macro work
6	opening windows help
7	book every opening a1 1 increases
8	folder opening
9	Opening a form with double click on textbox
10	opening system date
11	password opening
12	opening all excel files with 85%
13	write your welcome name at the opening hello .... desin
14	Welcome message: You can use auto_openi to perform the task of opening a file. All you need to do is call your macroauto_open."
15	opening a web sheet / page
16	userform pending opening
17	book opening-copying-closing
18	opening all excel files
19	opening a txt file
20	copy a formatted sheet / page when opening a new worksheet

Excel Free Macros (VBA)

Opening Calculator

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords