Macro para botão sair e salvar


#1

Olá pessoal! Tenho uma Urgência aqui.

Sei que o excel tem seu próprio botão de SAIR (X), porém quero trabalhar minha planilha em tela cheia e nesta situação, para que eu resolva sair da planilha preciso sair do modo de tela cheia e clicar no X de sair.

Acontece que eu tenho um Botão e quero apenas criar uma MACRO para clicar nele e SAIR da planilha sem precisar sair do modo de tela cheia, entenderam?

Ao clicar no Botão, deve acontecer a mesma função quando apertamos o X do excel.
Uma box abre perguntando se quer salvar as alterações feitas na planilha ofertando as opções de SALVAR, NÃO SALVAR e CANCELAR.

Alguém poderia me ajudar com um código VBA que realizasse essa função em um botão?

Desde já, agradeço demais!


#2

Boas @maruchoa,

testa este código.

Sub SAIR()
Dim Resposta As String
' Podemos alterar a mensagem
Resposta = MsgBox("Deseja Fechar o Arquivo", vbYesNo, "Atenção")

If Resposta = vbYes Then
    ActiveWorkbook.Close Savechanges:=False
MsgBox "Até Amanha"
End If
If Resposta = vbNo Then
End If
End Sub

#3

@Galamba,

Ficou muito bom, mas não ficou ainda do jeito que eu preciso, ok?

Precisava que na box aparecesse três opções:
SALVAR E SAIR - SAIR SEM SALVAR - CANCELAR

E que também ao clicar na primeira ou na segunda opção (Salvar e Sair - Sair sem Salvar) a macro realmente fechasse o excel e não somente a planilha, entende?

Se você corrigir isso para mim, vou ficar imensamente agradecido e vai ficar perfeito!

Aguardo muito amigo!
Desde já obrigado por me ajudar.


#4

ao invés de ActiveWorkbook.Close usa o Application.Quit que vai fechar todo o Excel


#5

Muito obrigado @Galamba e @William1990.

Já deu certo aqui. Me ajudaram muito!