calculator on / off Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit
'// Declare the Required API's

'// these handle the Calculator Menu
Private Declare Function GetSystemMenu _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal bRevert As Long) _
As Long

Private Declare Function DeleteMenu _
    Lib "user32" ( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long) _
As Long

'// used to get the Windows Dir
Private Declare Function GetWindowsDirectory _
    Lib "kernel32" _
    Alias "GetWindowsDirectoryA" ( _
    ByVal lpBuffer As String, _
    ByVal nSize As Long) _
As Long

'// used to find the calculator Window
Private Declare Function FindWindow _
    Lib "user32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) _
As Long

'// used to CLOSE the calcul7ator
Private Declare Function PostMessage _
    Lib "user32" _
    Alias "PostMessageA" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) _
As Long

'// Used to set the Windows Style
Private Declare Function SetWindowPos _
    Lib "user32" ( _
    ByVal hWnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) _
As Long

'// Positions
Private Const HWND_TOPMOST = -1

Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private Const WM_CLOSE = &H10

Private Const MF_BYCOMMAND As Long = &H0

Private Const SC_CLOSE = &HF060

Dim HoldVar As New Class1

Sub WinCalculator_Open()
'// Need to consider International Versions
Dim strSysDir1 As String
Dim strSysDir2 As String
Dim Fso As Object
Dim Ret As Long
Dim strTmp1 As String
Dim strTmp2 As String

'// make sure only ONE instance of Calc is open
'// Unless you want more? then just remove this code.
If HoldVar.hdlCalc Then Exit Sub

'//
On Error Resume Next
'// get users [System Dir] > Typical location of Calculator
Set Fso = CreateObject("Scripting.FileSystemObject")
strSysDir1 = Fso.GetSpecialFolder(1)

'// get users [Windows Dir]
strTmp2 = String(256, Chr(0))
strSysDir2 = Left(strTmp2, GetWindowsDirectory(strTmp2, Len(strTmp2)))

'// Calculator is typically in the [System Dir] or [Windows]
'// lets see!
Ret = Shell(strSysDir1 & "calc.exe", 1)
If Ret = 0 Then Ret = Shell(strSysDir2 & "calc.exe", 1)
If Ret = 0 Then GoTo NoGo
On Error GoTo 0

'// Lets Keep these variable to reference later
'// This is done via Class variable
HoldVar.hdlCalc = FindWindow(vbNullString, "calculator")

'// Disable the CLOSE button > so that we only close
'// the instance of the calculator via Code
WinCalculator_RemoveCloseMenu HoldVar.hdlCalc

'// Make calculator Applet stay ONTOP
SetWindowPos HoldVar.hdlCalc, _
    HWND_TOPMOST, _
    0, 0, 0, 0, _
    SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

Exit Sub

NoGo:
MsgBox "Couldn't find Calc.exe file!... " & _
    "In either............" & vbCrLf & vbCrLf & _
    strSysDir1 & vbCrLf & " OR " & vbCrLf & _
    strSysDir2, vbCritical, "Better check!"

End Sub

Sub WinCalculator_Close()
    '//
    If HoldVar.hdlCalc Then PostMessage HoldVar.hdlCalc, WM_CLOSE, 0&, 0&
    '// Reset the Windowhandle variable
    HoldVar.hdlCalc = 0
End Sub

Sub WinCalculator_RemoveCloseMenu(hWnd As Long)
'// Removes the CLOSE button on calculator
Dim hMenu As Long

hMenu = GetSystemMenu(hWnd, 0)
    Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub

‘classmodüle
Option Explicit

Public hdlCalc As Double
Public strCalcCaption As String

No	Macro Name
1	calculator on / off
2	Calculate the duration of the mp3 file (type the file path and select that cell)
3	opening calculator
4	excel operators hk
5	time difference calculation
6	age calculation and message notification
7	Automatic calculation enabled-ineffective
8	calculator invocation
9	calculator calls
10	lists the named cells in detail on the wb_names sheet / page
11	specify the number of copies to print from the printer
12	records detailed formatted cells on the records sheet / page
13	Send or bulk mail with Outlook
14	specifies in detail how many formulas are in the book (on new sheet / page)
15	list formulas on new sheet / page
16	send alert e-mail from microsoft outlook
17	cd on / off
18	pdf preview
19	cd on / off 2
20	desktop icon creation

Excel Free Macros (VBA)

Calculator On / Off

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords