Notifications
Clear all

Comando ao minimizar o projeto.

4 Posts
2 Usuários
0 Reactions
1,050 Visualizações
(@bracinho)
Posts: 69
Trusted Member
Topic starter
 

Pessoal,

Afim de liberar a memória do Excel, eu utilizo o código abaixo no comando UserForm_Terminate().

Private Sub UserForm_Terminate()

    On Error Resume Next
    Set mclsFormChanger = Nothing
    Dim wsativo
    Dim fechar

Set wsativo = ThisWorkbook.ActiveSheet
Set fechar = UserForm7
Set wsativo = Nothing
Set fechar = Nothing

end sub

Isso funciona perfeitamente.

Mas como eu faço para executá-lo sempre que o projeto for Minimizado? Eu pergunto isso, pois, ao minimizá-lo, observo que o Excel fica processando algo em segundo plano.

 
Postado : 20/11/2015 5:20 am
(@edivan)
Posts: 119
Estimable Member
 

Olá, olha só para você executar ao minimizar eu não sei, mas você pode tentar colocar um botão para minimizar use esse comando:

Application.WindowState = xlMinimized

após esse comando use os de seu interesse...

Visite meu blog:

programacaopassoapasso.wordpress.com

 
Postado : 20/11/2015 5:39 am
(@bracinho)
Posts: 69
Trusted Member
Topic starter
 

Edivan,

Eu não utilizo esse comando para minimizá-lo.

Veja a interface do meu projeto:

 
Postado : 20/11/2015 5:51 am
(@edivan)
Posts: 119
Estimable Member
 

OK cara aí eu não sei como te ajudar, vou dar uma pesquisada no assunto e te dou retorno se achar algo....

 
Postado : 20/11/2015 5:11 pm