Marcelo G Pr...
Geek
Registrado
1K Mensagens
227 Curtidas
Pessoalmente não entendi o objetivo, ja que esse tipo de rotina é nativa do excel, sempre que vc fecha um arquivo que sofre alteração o mesmo pergunta o que vc deseja fazer, salvar, nao salvar ou simplesmente cancelar.
No entanto o codigo para esse fim é esse:
Cole em Esta Pasta de Trabalho.
[code=vb]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Resposta As String
Resposta = MsgBox("Deseja Fechar o Arquivo", vbYesNo, "Atenção")
If Resposta = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub
[/code]
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
gscorrea
Novo Membro
Registrado
9 Mensagens
2 Curtidas
Pessoalmente não entendi o objetivo, ja que esse tipo de rotina é nativa do excel, sempre que vc fecha um arquivo que sofre alteração o mesmo pergunta o que vc deseja fazer, salvar, nao salvar ou simplesmente cancelar.
No entanto o codigo para esse fim é esse:
Cole em Esta Pasta de Trabalho.
[code=vb]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Resposta As String
Resposta = MsgBox("Deseja Fechar o Arquivo", vbYesNo, "Atenção")
If Resposta = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub
[/code]
Marcelo, muito obrigado era isso mesmo o que eu queria.
Acho que não me expressei direito, é que em minha planilha trabalho com datas usando a fórmula "=Hoje()", como todo dia que entrava na planilha ela atualizava, eu atribui uma macro num botão para retirar a fórmula e manter a data. Essa mensagem seria um lembrete para que antes de salvar a planilha, tem que apertar o botão.
Abraços.