excel sluiten

[SUVERMO]

kan iemand mij helpen
bedoeling is dit bestand te sluiten zonder opslaan en excel te sluiten als er geen ander bestand is geopend.
deze codes vond ik op het forum

Sub sluiten()
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End Sub

maar van excel blijft er nog iets geopend als er geen ander bestand is geopend

 

[cow18]

logisch je sluit de werkmap af en dus kan hij de laatste regel niet meer uitvoeren

Sub sluiten()
   ActiveWorkbook.Saved = True                   'laat excel denken dat deze file gesaved is
   Application.Quit                              'excel zelf sluiten
End Sub

 

[snb]

Sub M_snb()
   Application.displayalerts=false
   application.quit
End Sub

 

[SUVERMO]

bedankt voor de reactie maar deze oplossing sluit alle geopende bestanden, bedoeling was alleen dit bestand te sluiten, en als er geen ander ander bestand geopend is dan pas excel af te sluiten.
is dat mogelijk?

 

[DigiCafee]

Ja, zet er een if-clause (ALS-voorwaarde) rond :

if workbooks.count = 1 then


end if

 

[SUVERMO]

iedereen bedankt voor de tips
deze code werkt prima

Sub sluiten()
   If Workbooks.Count = 1 Then
   Application.DisplayAlerts = False
   Application.Quit
   End If
   ActiveWorkbook.Close SaveChanges:=False
End Sub