Sovelluksen sulkeminen makrolla

If unsaved workbooks are open when you use this method, Microsoft Excel displays a dialog box asking whether you want to save the changes. You can prevent this by saving all workbooks before using the Quit method or by setting the DisplayAlerts property to False. When this property is False, Microsoft Excel doesn’t display the dialog box when you quit with unsaved workbooks; it quits without saving them.

If you set the Saved property for a workbook to True without saving the workbook to the disk, Microsoft Excel will quit without asking you to save the workbook.

joten kyllä allaoleva pitäisi toimia (toimii ainakin mulla)

Sub Sulje()
Application.DisplayAlerts = False
Application.Quit
End Sub

suljetaan kaikki muut työkirjat yksitellen tallentamatta niitä (tai jos tarttee tallentaa niin muuta Työkirja.Close False---> Työkirja.Close True)-paitsi yksi (1 pitää olla aina auki..) eli jätetään yksi sulkematta ja sitten suljetaan se lopuksi.
Nyt ei ainakaan pitäisi herjoja tulla...


Sub Sulje2()
Dim Työkirja As Workbook
Application.DisplayAlerts = False

For Each Työkirja In Application.Workbooks
If Työkirja.Name "suljevikana.xls" Then ' muuta tähän aukijäävän työkirjan nimi
Työkirja.Close False
End If
Next

Application.Quit
End Sub

ohjeen mukaisesti...
kerrotaan Excelille , että ollaankin tallennettu työkirjat... ;-)

Sub Sulje3()
Dim Työkirja As Workbook
For Each Työkirja In Application.Workbooks
   Työkirja.Saved=True
Next

Application.Quit
End Sub

ei nyt muuta tuu mieleen tällä erää... jospa noilla probleema korjautuisi

Keep Excelliong
@Kunde