Send Email when spreadsheet is updated
 

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.

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.

Send Email when spreadsheet is updated
 

Use the subscription featu

http://office.microsoft.com/en-us/he...701161033.aspx

P.
--
Overcome Sales Barriers
http://salesbarriers.typepad.com/


"Ron de Bruin" wrote:

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.