Este fórum está sendo desativado

[ppveiga]

Pessoal, gostaria de uma ajuda para a seguinte situação:
- em uma determinada planilha, quando alterada a célula A1 por exemplo, salvando ou não o arquivo antes de fechar, quando selecionar o comando para fechar a planilha, antes de fechar, aparecer uma caixa com a seguinte mensagem: "ATENÇÃO! Verificar a necessidade de atualizar planilha XPTO", e um botão de OK para fechar a planilha.

[demabiath]

Boa tarde, @ppveiga !

A solução é bastante simples, você irá o recurso de eventos do Excel para isso siga os passos:

- Habilite a Guia Desenvolvedor
- Na guia desenvolvedor, clicka em Visual Basica (Abrira uma janela )
- Na pasta Microsoft Excel Objetos, vá em "Está pasta de trabalho"
- No cabeçalho em "Geral", Selecione "WorkBook"
- Na guia ao lado, Selecione "BeforeClose"
Na sub Workbook_BeforeClose(Cancel As Boolean), digite:
msgbox "ATENÇÃO! Verificar a necessidade de atualizar planilha XPTO"


Salve e fecha a janela e assim já estará funcionando, toda vez que a planilha for alterada, quando fecharem aparecerá o aviso.

Abraços,
-Davi

[ppveiga]

Muito bom! Funcionou direitinho!
Só mais uma dúvida, tem como fazer dessa forma conforme abaixo, deixar a palavra ATENÇÂO em cima e o restante da frase em baixo?

ATENÇÃO!
Verificar a necessidade de atualizar planilha XPTO.

Muito obrigado.

[osvaldomp]

Olá, @ppveiga .

Veja se alguma das opções abaixo lhe atende.

Código: Selecionar todos

MsgBox "ATENÇÃO!" & vbLf & "Verificar a necessidade de atualizar planilha XPTO."

MsgBox "Verificar a necessidade de atualizar planilha XPTO.", , "ATENÇÃO!"

MsgBox "Verificar a necessidade de atualizar planilha XPTO.", 16, "ATENÇÃO!"

MsgBox "Verificar a necessidade de atualizar planilha XPTO.", 48, "ATENÇÃO!"

[ppveiga]

Muito bom!
Valeu!