Envío de E-mail. Qué ha cambiado? Y sólo si ha cambiado

buenos días/tardes.
Me gustaría saber si alguien me puede ayudar con este tema.
Tengo una hoja de Excel en la que tengo datos en el rango de celdas A1:B5. Necesito que cuando abra el libro de Excel, y yo modifique algún valor en ese rango de celdas, Excel me envíe "DE FORMA AUTOMÁTICA" un e-mail diciéndome que es "EXACTAMENTE" lo que ha cambiado de ese rango de celdas y "ÚNICAMENTE" cuando haya cambiado algo.
Estoy en el siguiente punto. Un código que me envía perfectamente un e-mail del rango de celdas A1:B5, pero que no cumple las tres reglas a mayores que yo necesito. La primera que "NO ES AUTOMÁTICO" al cambiar un valor de dicho rango de celdas, la segunda que no es "ÚNICAMENTE" cuando cambia algún valor de dicho rango de celdas y la tercera que no me dice que es lo que ha cambiado "EXACTAMENTE".
Si no ha cambiado nada en dicho rango de celdas no necesito ningún tipo de información.
¿Alguien sería tan amable de como configurar el siguiente código para que realice la función que yo deseo? Muchísimas gracias por adelantado
CÓDIGO: SELECCIONAR TODOSub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub

Añade tu respuesta

Haz clic para o