VBA Excel Basics - Salvando todos os Workbooks abertos antes de fechar o MS Excel sem avisar o usuário

 | Blog Office VBA | Blog Excel | Blog Access |

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 Workbook

    For Each wb In Workbooks
        wb.Save
    Next

    Application.Quit
End Sub

Tags: VBA, Excel, Basics, workbook, fechar, close, salvar, save