Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Fechar o projeto na...
 
Notifications
Clear all

Fechar o projeto na ocorrência de qualquer erro.

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,079 Visualizações
RSS
 Bracinho
(@bracinho)
Posts: 69
Trusted Member
Topic starter
 

Pessoal, bom dia!

Existe um código que antecipe qualquer tipo de erro durante a execução do VBA?

Quero que, antes do erro acontecer, o projete faça:

sub errou

msgbox "Aconteceu um erro grave. Fecharei o programa!", vbinformation, "Atenção!"

Unload UserForm7
ThisWorkbook.Application.Visible = False
ActiveWorkbook.Save
ThisWorkbook.Application.Quit

end sub

Existe o On Error Resume Next, mas ai eu teria que colocá-lo em todas as Sub's. Existe um código global ou algo similar?

 
Postado : 23/11/2015 7:56 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Bracinho,

Tenta assim:

Sub codigo()
On Error GoTo CallerFecharErro

'...
'SEU CÓDIGO AQUI
'...

Exit Sub
CallerFecharErro: Call FecharErro

End Sub
Sub FecharErro()
    MsgBox "Aconteceu um erro grave. Fecharei o programa!", vbInformation, "Atenção!"
    Unload UserForm7
    ThisWorkbook.Application.Visible = False
    ActiveWorkbook.Save
    ThisWorkbook.Application.Quit
End Sub

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/11/2015 8:36 am
 Bracinho
(@bracinho)
Posts: 69
Trusted Member
Topic starter
 

Bernardo,

Colocarei esse código em todas as sub's do sistema, não é?

 
Postado : 23/11/2015 8:42 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Bracinho.

Exatamente.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/11/2015 8:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico