Hola
Este pequeño código a mi me funciona bien, el problema es que al cerrar la hoja sin guardar los cambios la hoja de excel no se ve (abre y cierra sin guardar cambios), si descomentas la linea del Save y comentas la del close, la hoja se abre, y si el usuario no realiza ningún cambio al cerrar excel no pide mensaje para guardar.
Código:
Dim ExcelApp As New Excel.Application
Dim ExcelHoja As Excel.Worksheet
Private Sub Form_Load()
ExcelApp.Workbooks.Open "C:\Prueba.xls"
Set ExcelHoja = ExcelApp.ActiveSheet
ExcelHoja.Cells(1, 1) = "Hola Mundo"
'ExcelApp.Application.ActiveWorkbook.Save
ExcelApp.Application.Visible = True
Screen.MousePointer = 0
ExcelApp.Workbooks(1).Close SaveChanges:=False
Set ExcelApp = Nothing
Set ExcelHoja = Nothing
End Sub
--Saludos--