Preventing excel program from running if computer is running another instance of excel or word

[unluckyuser]

Hello. Working in an environment where we have memory crashes when multiple spreadsheet and word processing documents are opened. Is there a way I can prevent my excel automatic macro from executing if there's another instance of excel or word running? So if they're going to run my excel macro, that can be the only thing that's opened?

 

[Logit]

Paste the following into the ThisWorkbook module :

Option Explicit

Private Sub Workbook_Open()
    Dim xlApp As Object
    Dim wdApp As Object
    Dim otherExcelInstance As Boolean

    On Error Resume Next
    ' Check for other instances of Excel, excluding this workbook
    Set xlApp = GetObject(, "Excel.Application")
    If Not xlApp Is Nothing Then
        If xlApp.Workbooks.Count > 1 Then
            otherExcelInstance = True
        End If
    End If

    ' Check if another instance of Word is running
    Set wdApp = GetObject(, "Word.Application")
    On Error GoTo 0

    If otherExcelInstance Or Not wdApp Is Nothing Then
        MsgBox "Another instance of Excel or Word is already running. Close those running applications then re-open this workbook.", vbCritical, "Application Restriction"
        
      

        ' Close the master workbook
        Application.DisplayAlerts = False
        ThisWorkbook.Close SaveChanges:=False
        Application.Quit
    End If
End Sub