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 CloseSaveAll()
Dim wb As WorkbookFor Each wb In Workbooks
wb.Save
NextApplication.Quit
End Sub
Tags: VBA, Excel, Basics, workbook, fechar, close, salvar, save,
