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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Excel Fecha e abre novamente
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sáb Jul 11, 2020 8:46 pm
Re: Excel Fecha e abre novamente
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"
Ao invés de Application.Quit, recomendo que use "ThisWorkbook.Close"