Hello all!

I'm trying to adapt a worksheet change sub I've been using on my monthly reports that generates an email when the final cell is filled out.

In this other book, we have some sneaky peoples that keep unlocking the book and making changes and then saying they were there all along. (Senior management is more interested in catching who has been making the changes than creating an ironclad system.)

What worksheet property do I stick in here to set off the email? How do I prevent iteration after each change once the workbook has been initially unlocked?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim OlookApp As Object
Dim Mail As Object
Dim SendAnEmail As Boolean

'something something If Worksheet.property.unprotected Then SendAnEmail = True    

    If SendAnEmail Then
        Set OlookApp = CreateObject("Outlook.Application")
        Set Mail = OlookApp.CreateItem(0)
        Mail.to = "rainbow_unicorns@mail.com"
        Mail.Subject = "Workbook - Management Stats has been unlocked"
        Mail.Body = "I have cracked your workbook and am messing with your datas!"
        Mail.Send
    End If

Set OlookApp = Nothing
Set Mail = Nothing

End Sub
Many thanks