Este fórum está sendo desativado

[LuisFeb]

Olá, pessoal.

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

Código: Selecionar todos

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?

[alexandrevba]

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

[LuisFeb]

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?

[LuisFeb]

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.