Bom dia pessoal,
Estou com o seguinte problema, desenvolvi um banco de dados em Excel que deve funcionar apenas por intermédio de formulários, isto está funcionando sem problemas, meu problema é quando mando fechar a aplicação.
O que acontece é que caso eu tenha outras planilhas abertas, ao utilizar o código abaixo para fechar a aplicação o Excel manda fechar todas as planilhas abertas.
Private Sub btSai_Click()
ActiveWorkbook.Save
Unload Me
Application.Visible = True
ThisWorkbook.Application.Quit
End Sub
Então pesquisando no forum eu encontrei a solução abaixo, porem, agora quando eu abro apenas o banco de dados, quando mando fechar a aplicação, a janela vazia do excel ainda fica aberta.
Private Sub btSai_Click()
ActiveWorkbook.Save
Unload Me
Application.Visible = True
ThisWorkbook.Close True
End Sub
Então o que preciso é de um código para checar se tem outras planilhas abertas e em caso negativo fechar o Excel. Isso é possível, como faço?
Desde já agradeço a atenção.
Att, Carlos
Postado : 29/04/2015 8:40 am