Find out if excel is in edit mode from word-vba - vba

Question

I am trying to find out from word if excel is in edit mode, I looked at this thread and tried to modify it, but it does not work if you have excel in edit mode, then run it, then exit edit mode rerun it still says it is edit mode:
'*********************************************************
'********* define if we need to close excel after sub is done
'***********************************************************
Public Function setExcelObject(ByRef oXLApp As Object) As Boolean
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")
If oXLApp Is Nothing Then
Set oXLApp = CreateObject("Excel.Application")
End If
setExcelObject = IsInEditMode(oXLApp)
End Function
Public Function IsInEditMode(ByRef exapp As Object) As Boolean
If exapp.Interactive = False Then
IsInEditMode = False
Else
On Error GoTo terminate
exapp.Interactive = False
exapp.Interactive = True
IsInEditMode = False
End If
Exit Function
terminate:
IsInEditMode = True
Exit Function
End Function
Note: It also takes awful long(15s) to figure out that it is in edit mode...

Answer 1

Here is a working code:
'**********************************************************************
'********* See if we can open excel, true is Yes we can work with excel
'**********************************************************************
Public Function setExcelObject(ByRef oXLApp As Object) As Boolean
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")
If oXLApp Is Nothing Then
Set oXLApp = CreateObject("Excel.Application")
End If
setExcelObject = Not IsInEditMode(oXLApp)
If setExcelObject = False Then Set oXLApp = Nothing
End Function
' *****************************************************************
' **************** Check if excel is in edit mode ****************
'*****************************************************************
Public Function IsInEditMode(ByRef exapp As Object) As Boolean
On Error GoTo terminate
exapp.Interactive = False
exapp.Interactive = True
IsInEditMode = False
Exit Function
terminate:
IsInEditMode = True
Exit Function
End Function
' *************************************************************
' *************** Check if excel is open, true, means we should not close excel after we are done.....
'*****************************************************************
Function ExcelOpen() As Boolean
ExcelOpen = FindWindow("XLMAIN", vbNullString)
End Function
The above code I then call from several procedure like this:
' Get excel object
If Not FileHandling.setExcelObject(oXLApp) Then
failMessage = "You are editing a cell in excel, stop doing that!"
GoTo terminate
End If
' check if we need to close after
closeExcelMy = FileHandling.ExcelOpen
'See if we can open workbook
If Not FileHandling.GetWorkbook(wbName, oXLApp, xlApp) Then
failMessage = "Failed to open workbook"
GoTo terminate
End If
oXLApp.Visible = True