Suponhamos que sejas alguém extremamente preocupado em poupar os seus usuários do stress de precisarem salvar automaticamente suas planilhas e todas as abas que tenham sofrido alterações, sem acrescentar nenhuma ansiedade a tais por tal descuido.
Segue:
Sub EndNotSave( )Dim wb As WorkbookFor Each wb In Workbooks' Marca o workbook como salvoLet wb.Saved = TrueNextApplication.QuitEnd Sub
Tags: VBA, Excel, Basics, workbook, fechar, close, sem salvar, not save,