Este fórum está sendo desativado

[EvandroRodrigues]

Bom dia!
Alguém sabe como fechar e salvar um arquivo ou pasta sem exibir a mensagem padrão?

[AndersonLeal]

Olá,

Vá no Editor do Visual Basic (Alt + F11), selecione a opção "EstaPasta_de_trabalho" e digite o seguinte código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

A rotina salva a planilha antes de fechar o Excel.

Abraço!

[AndersonLeal]

Também pode usar esse código que funciona. Insira no mesmo local que o outro código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False

Dim path As String
Dim name As String

path = "Caminho onde será salvo o arquivo"
name = "Nome do arquivo"

ActiveWorkbook.SaveAs path & name & ".xlsm", FileFormat:=52

Application.DisplayAlerts = True

End Sub

Esse método funciona mesmo quando for um arquivo novo, que ainda não está salvo no PC.

Para saber mais sobre o comando ActiveWorkbook.SaveAs acesse o link abaixo:

https://msdn.microsoft.com/pt-br/librar ... 41185.aspx

Abraço!