Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Excel Fecha e abre novamente

Dúvidas gerais sobre Excel
juli ocursino
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Jul 11, 2020 8:46 pm

Excel Fecha e abre novamente

Mensagem por juli ocursino »

Olá!
Estou com um problema. Quando executo o botão fechar no formulário só com a pasta do arquivo aberta ele fecha normalmente. Porém quando tem outra pasta aberta ao mesmo tempo, ao executar o botão fechar do formulário, ele fecha e abre novamente. Não consigo resolver isso! Peço ajuda a vocês.

Estou usando este comando para fechar:

Private Sub sair_Click()

On Error Resume Next
ActiveWorkbook.save

Dim NomePlan As String
NomePlan = ThisWorkbook.Name

Dim NPlan As Integer
NPlan = Workbooks.Count

If NPlan > 1 Then
Windows(NomePlan).Close
Else
Application.Quit
End If

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Excel Fecha e abre novamente

Mensagem por webmaster »

Application.Quit fecha o Excel todo, inclusive outras pastas abertas. O que o Excel deve estar tentando fazer é reabrir o arquivo fechado indevidamente.

Ao invés de Application.Quit, recomendo que use "ThisWorkbook.Close"


Responder