Notifications
Clear all

Fechamento do Excel

4 Posts
3 Usuários
0 Reactions
978 Visualizações
(@japimentel)
Posts: 0
New Member
Topic starter
 

Olá, bom dia.
Quando eu tenho alguma planilha aberta no meu Excel 2013, estou enfrentando um problema para usar um cadastro que desenvolvido com VBA.
O código que é lido quando finalizo o formulário VBA é este:

Private Sub UserForm_Terminate()
    ThisWorkbook.Save
    Application.Visible = True
    'If bt_imprimir.Enabled = True Then
        'ThisWorkbook.Close
    'End If
    Application.Quit
End Sub

Ocorre que o comando application.quit está finalizando tanto o meu formulário VBA quanto a 1ª planilha que estava aberta, mas não quero que isto ocorra; quero finalizar apenas o meu Excel vinculado ao VBA e manter o meu Excel da 1ª planilha aberto.
O que posso fazer?

 
Postado : 16/06/2017 8:13 am
(@leandroxtr)
Posts: 0
New Member
 

Amigo, bom dia!

O termo application sem uma especificação, significa todo e qualquer documento de excel aberto, portanto, todo comando que tem somente este argumento, será executado em toda application aberto.

Para resolver isso, você precisa especificar, por exemplo. Application.ThisWorkBook.close ou Application.Workbook("nome da planilha que queira fechar").close

tente aplicar um destes e manda o retorno. Se o problema persistir, anexe a planilha para verificarmos..

Abraço!

 
Postado : 16/06/2017 8:46 am
(@japimentel)
Posts: 0
New Member
Topic starter
 

Ok, amigo Leandroxtr, ficou perfeito. Resolveu.
Obrigado.

 
Postado : 16/06/2017 10:12 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

japimentel,

Boa tarde!

Solicitamos, por gentileza, quando das próximas postagens de código VBA no fórum, utilizar a TAG CODE que fica no início da caixa de mensagens. Isso ajudará a manter o fórum de forma mais organizada.

Outrossim, pedimos também que ao responder a um usuário qualquer (que ajudou ou não) evite utilizar a ferramenta CITAR para usar como resposta. Essa ferramenta deve ser utilizada somente para destacar alguma frase/palavra/parágrafo que não foi devidamente entendido.

 
Postado : 16/06/2017 1:13 pm