Disable the Excel Window 'X' from VB App.

[sam2601]

Hi guys,

I have a VB app in which we are creating a Excel spreadsheet and filling in data on fly.What is happening is
when it is still loading the user is trying to close the Excel spreadsheet and this is causing a error in VB app and closing the app.

Is there any way we can disable the 'X' close button excel window through VB

Any ideas surely appreciated .

Thanks

 

[richardtsa]

have not found a solution that take the x away, but why not keep the WindowState = xlMinimized and then maximize it when the data is loaded

 

[sam2601]

Thanks richardtsa !!!

I'll try it

 

[tdong]

SET TO VISIBLE = FALSE see code below they are my actual code

Public Function GetExcelApp() As Excel.Application

While bAppInUse
DoEvents
Wend

bAppInUse = True

If oExcelApp Is Nothing Then
Set oExcelApp = CreateObject("EXCEL.APPLICATION")
oExcelApp.Visible = False
oExcelApp.Workbooks.Open (oExcelApp.Application.LibraryPath & "\Analysis\atpvbaen.xla")
oExcelApp.Workbooks("atpvbaen.xla").RunAutoMacros (xlAutoOpen)
End If

Set GetExcelApp = oExcelApp

End Function

 

[sam2601]

Thanks tdong

Actually now i am controlling the VB app from breaking by trapping the Err code.