Necesito Mostrar mensaje al cerrar archivo

Todo mediante eventos:

1.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
tmp = MsgBox("Digitó los nros?", vbOKCancel)
If (tmp1 = 2) Then
Cancel = True
End If
End Sub

2. Es más complicada...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If (Target.Address = "$A$1") Then
If (Target.Value = "limite") Then
'cod para enviar e-mail
End If
End If
End Sub

donde dice If (Target.Value = "limite") Then deberás cambiarlo por el
critero de tu "limite".

y donde dice 'cod para enviar e-mail
hay que poner el cód para enviar el e-mail, que depende .. puedes usar un
ocx, o una api de windows, o el outlook... hay que ver cual conviene...

Ah, todos los eventos de workbook, van, obviamente, en ThisWorkBook en el
gui de vba






"Charlie" escribió en el mensaje
news:1dfaa01c454b5$a348d690$
Hola a todos,
Tengo dos preguntas.

1. Tengo un archivo, el cual necesita de la digitacion de
unos datos por parte de terceras personas, por lo cual, me
gustaría hacer que al momento de cerrar el documento,
apareciera un mensaje que le recordara o confirmara con el
usuario que digito todos los datos, antes de cerrarlo
realmente. No se si sea posible, pero agradecería la
ayuda que me pudieran brindar con esto.

2. Quisiera crear una formula que permita enviar un
correo electronico, esto quiere decir que por ejemplo
cuando una determinada celda llegue a su limite, se envíe
un e-mail automaticamente a una direccion que se encuentra
escrita en otra celda.
Muchas Gracias por su colaboración.