none
Condição para Fechar Workbook ou o aplicativo Excel RRS feed

  • Pergunta

  • 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

    quarta-feira, 29 de abril de 2015 13:40

Respostas