Excel - Sua Mensagem Pessoal

[kedim43]

Fala Galera.

Hoje troxe pra todos que tem acessado os meus tutoriais, uma dica bem interresante.
Sua mensagem pessoal ao finalizar a sua apliacação no Excel Vba.

O código é bem simples.

Ao acessasr o mode VBa do Excel, localize a instrução:
Esta_Pasta_De_Trabalho.
Clique 02 vezes nela e colei o código abaixo.

Vamos colocar As Mãos No Código.

Aqui esta o código, basta copiar e colar.

'Aqui Finalizamos A Pasta de Trabalho e Atualizamos Todos Os Dados

Private Sub workbook_BeforeClose(cancel As Boolean)
Dim ws As Workbook
Dim resp As VbMsgBoxResult
Set ws = ThisWorkbook
If ws.Saved = False Then
ws.Saved = True

'Aqui vai a sua mensagem
resp = MsgBox("Gostaria de Salvar As Alterações" & _
"Nesta Pasta de Trabalho?", vbYesNoCancel Or vbQuestion, "Sistema Live Free - Salvar Personalizada")

' Resposta Sim

If resp = vbYes Then
ws.Save

'Outra mensagem pessoal

MsgBox ("Seus Dados Foram Atualizados Com Sucesso!"), vbInformation, ("Até Mais - Sistema Live Free")

'Resposta cancelar
ElseIf resp = vbCancel Then
cancel = True
End If
Else
MsgBox ("Obrigado E Até Mais"), vbInformation, ("Sistema Live Free")
End If
End Sub

fim do código galera.

Bom é isso ai galera.

Agora finalize sua aplicação e tome uma decisão.

fácil demais.

Para o proximo post, vou lhes mostrar algo super legal.
Um aplicatico completo com todos os comandos: Novo;Cadastrar;Localizar;Editar;Excluir e Fechar.

Valeu galera.

Até nosso proximo post.