View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Send Email when spreadsheet is updated

Hi XFILES

You can set a boolean and use the beforesave event to mail maybe
Copy this In the thisworkbook module

Public OkToSend As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If OkToSend = True Then
MsgBox "call your macrio here"
OkToSend = False
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
OkToSend = True
End Sub

For mail code look here
http://www.rondebruin.nl/sendmail.htm




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"XFILES" wrote in message ...
I have created a spreadsheet and I'm wondering if it possible to set the
spreadsheet up so that it emails me when a user changes it? Thanks.