Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
FECHAR PLANILHA COM...
 
Notifications
Clear all

FECHAR PLANILHA COM USERFORM

 
2024 - VBA & Macros
Post Recente por eng_sidnei 13 anos atrás
3 Posts
2 Usuários
0 Reactions
1,958 Visualizações
RSS
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

Boa Noite, gostaria de que ao fechar o userform clicando no (X) superior direito fosse fechado o aplicativo do excel também.

Usei esse código

Private Sub UserForm_Terminate()
Application.Quit
End Sub

Mas quando faço o "unload me" para abrir outro form ela fecha o excel, e não gostaria. Somente fechar o excel ao clicar no (X) do userform.

Alguma sugestão?

 
Postado : 10/03/2012 7:25 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se é isto :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    Select Case CloseMode
    
        Case 0
            Cancel = True
        End Select
    
        If Cancel = True Then
            Cancel = False
            Application.Quit
        End If
        
End Sub

[]s

 
Postado : 10/03/2012 8:22 pm
 eng_sidnei
(@eng_sidnei)
Posts: 27
Eminent Member
Topic starter
 

100% resolvido.
Valeu mesmo Mauro. Obrigado pela ajuda.

 
Postado : 13/03/2012 4:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico