VBA: Excel volledig afsluiten, tenzij er meerdere workbooks open staan

[tomswaelen]

Momenteel heb ik deze macro in Excel. Deze sluit het actieve workbook op het einde, maar als dit het enige workbook is, blijf je als gebruiker nog achter met je 'moeder'-scherm van Excel, dat dan leeg is.

Hoe kan ik deze code aanpassen zodat ze Excel volledig afsluit als het huidige workbook het enige workbook is? Als een gebruiker meerdere workbooks open heeft staan, moet enkel het huidige afgesloten worden.

Sub Afdrukken()

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End If
ThisWorkbook.Save
ThisWorkbook.Close SaveChanges:=False

End Sub

 

[SjonR]

Dit onderaan je code zetten?

If Workbooks.Count = 0 Then Application.Quit

 

[tomswaelen]

If Workbooks.Count = 1 Then Application.Quit en heb er dan nog een Else aan toegevoegd dat dan enkel het huidige workbook dicht doet, maar inderdaad, dat werkt

Thanks!