fechar o excel pro macro

[Guest Wellington]

Bom tarde galera...

to com um problema, que parece simples, mas ta me gerando problemas com o vba no excel.

tenho um sistema e na hora de fecha um form (chamo o auto_close do excel) ... mas ele ta com o comando abaixo com o "quit"

sub auto_close

ActiveWorkbook.Saved = True

Application.Quit

end Sub

só q assim ele fecha todos os outros excel abertos também

ActiveWindow.Close ou ActiveWorkbook.Close fecha o arquivo, mas deixa o excel ainda aberto naquele tela cinza, qual só não mostra a planilha, mas deixa as ferramentas abertas.

como eu posso fazer para ele fechar o excel (como faz com o comando quit, mas sem fechar os demais arquivos do excel abertos ?

abraços,

Wellington

[Guest Jaoa]

sub auto_close

ActiveWorkbook.Saved = True

Workbooks("Nome_da_planilha_a_fehar").Close

end Sub

alex7010@hotmail.com

[Biolocutor]

sub auto_close

ActiveWorkbook.Saved = True

Workbooks("Nome_da_planilha_a_fehar").Close

end Sub

alex7010@hotmail.com

:huh:

Fala rapaz, não sei se você resolveu seu problema....hauhaua

Depois de anos...rs

me registrei e vim lhe da a solução! segue abaixo:

ActiveWorkbook.Saved = True

Workbooks("nome_do_arquivo").Close

Application.Quit

Essa função irá fechar apenas o arquivo o qual esta trabahando, já os demais ficam abertos.

Abraços

[Williamdp]

Bom, se quiser fechar em uma rotina, use isto aqui:

ThisWorkbook.Save 'Salva as alterações

ThisWorkbook.Close 'Fecha o excel todo

Se não for exatamente isto que queria, desconsidere.