Close MessageBox on closing Excel file

[Ciupaz]

Hello,
I'm getting a messagebox on running excel macros.
I need to close that messagebox using VBscript in-order to close the Excel .
Is it possible?

Thanks a lot in advance.

Luis

 

[Ciupaz]

Not understand.

 

[nemmi69]

Not sure how "WScript.Echo" got activated

 

[Ciupaz]

Automatically outside.
So how I should modify it?

 

[nemmi69]

Not used to this form. maybe the following will work

Sub endTheScript()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    objExcel.ActiveWorkbook.Save
    objExcel.ActiveWorkbook.Close (0)
    objExcel.Quit
    AckTime = 5
    Select Case InfoBox.Popup("Click OK (Message closes automatically after " & AckTime & " seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
    WScript.Quit
End Sub

 

[Ciupaz]

Ok I'll try.
Thank you very much so far.

 

[Ciupaz]

Not used to this form. maybe the following will work

Sub endTheScript()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    objExcel.ActiveWorkbook.Save
    objExcel.ActiveWorkbook.Close (0)
    objExcel.Quit
    AckTime = 5
    Select Case InfoBox.Popup("Click OK (Message closes automatically after " & AckTime & " seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
    WScript.Quit
End Sub

I have to insert this Sub in my all code?

 

[nemmi69]

It replaces the sub with that name as that is the one that is stopping the closure

 

[Ciupaz]

It replaces the sub with that name as that is the one that is stopping the closure

I replaced and saw , its not even open the Excel file now.

 

[nemmi69]

See if this is any better. As I said I do not usually us Wscipt

Sub endTheScript()
    Dim AckTime As Integer
    objExcel.ActiveWorkbook.Save
    objExcel.ActiveWorkbook.Close (0)
    objExcel.Quit
    AckTime = 5
    Select Case objShell.Popup("Click OK (Message closes automatically after " & AckTime & " seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
    WScript.Quit
End Sub

 

[nemmi69]

Is this VBS script?