Guru do Excel e Power BI

Enviado: **08 Nov 2016 às 01:49**

Olá, pessoal.

Criei um Módulo para o botão com o nome Fechar_e_salvar na minha planilha assim:

Sub Fechar_e_salvar ( )
ActiveWorkbook.Close savechanges:=True
End Sub

O problema é que ao sair fica uma tela vazia ou aparece uma mensagem para reiniciar o Excel.

Como complementar esse código (ou outra sugestão) para salvar e fechar completamente todas as janelas e eventuais mensagens do Excel?

Enviado: **08 Nov 2016 às 07:18**

Bom dia!!

Tente com o

Código: Selecionar todos

Sub Botão1_Clique()
    If Application.Workbooks.Count = 1 Then
        Application.Quit
    Else
        ActiveWorkbook.Close
    End If
End Sub

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

Att

Enviado: **08 Nov 2016 às 11:00**

Eu adaptei e funcionou! Uma última dúvida relacionado a mensagens ao sair. Uso proteção com senha para minhas macros, mas o campo de inserir a senha do VBAprotect aparece, preciso cancelar para sair. Tem alguma solução para esse caso?

Enviado: **08 Nov 2016 às 15:50**

Pessoal, consegui achar a solução para a mensagem VBAprotect que aparece ao fechar o Excel. Bastava simplesmente trocar o código de Módulo e colocar no Thisworksheet. Por isso que no Excel cada detalhe conta bastante! Fiz o teste, e não ressurgiu.

Guru do Excel e Power BI

Problemas com Botão Salvar e Fechar

Problemas com Botão Salvar e Fechar

Re: Problemas com Botão Salvar e Fechar

Problemas com Botão Salvar e Fechar

Problemas com Botão Salvar e Fechar