Excel – Sua Mensagem Pessoal

Fala Galera.

Hoje troxe para 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 acessar o modo VBA do Excel (Alt+F11), 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. 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. Bom é isso aí!

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.

Comentários

comentários