Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Personalizar aviso ...
 
Notifications
Clear all

Personalizar aviso de fechamento do excel

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,117 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, boa tarde!

Seria possível personalizar o aviso de fechamento do excel?

O aviso quando aparece ao fechar a pasta de trabalho do excel após o usuário digitar qualquer coisa e depois tentar fechar a pasta. Em anexo, segue uma imagem para melhor entendimento.

Obrigado

 
Postado : 17/05/2018 2:36 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Segue:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = True Then
Exit Sub
Else
mensagem = MsgBox("Deseja Salvar as Alterações no Sistema ABCDEF?", vbExclamation + vbYesNoCancel, "JNEXCEL")
If mensagem = vbYes Then
ThisWorkbook.Save
Exit Sub
ElseIf mensagem = vbNo Then
ThisWorkbook.Saved = True
Else
Cancel = True
End If
End If
End Sub

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 17/05/2018 2:53 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

JNEXCEL,

Boa noite!

Veja se é assim.

Personalizar Aviso Fechamento Excel.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 17/05/2018 3:45 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Colega Wagner, apenas uma contribuição para o seu código.

Insira a condicional no código BeforeClose:

   If ThisWorkbook.Saved = False Then
    Application.DisplayAlerts = False
    Application.EnableEvents = False
        Frm_Aviso.Show
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    End If

Dessa forma a pergunta não será feita se a planilha não tiver sofrido alterações, ficando fiel ao comando original do Excel.

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 18/05/2018 9:43 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Muito obrigado a todos!

 
Postado : 18/05/2018 9:56 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

xlarruda,

Boa tarde!

Obrigado pela contribuição. Valeu!

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/05/2018 12:50 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico