Prevent worksheet to be sent if certain information is left

[JackBauer]

Dear Friends,

I have a huge worksheet containing product information along with sensitive information with prices etc. I edit and save this file everyday and then make a copy, then redact all sensitive information (delete several columns which contain rates) and then sending this redacted file to bunch of people. But in the future I might forget to redact sensitive info and eventually will expose it to the recipients.

Is there a way to prevent worksheet to be sent via outlook if certain columns still exist on the file or is there a way to make a warning popup while saving data.

For example when saving it would popup a message: "SENSITIVE COLUMNS STILL EXISTS" or "SENSITIVE DATA IS DELETED AND IT IS SAFE TO SEND"

Or any other way?

Thank you in advance for Your replies. I will check this post today and tomorrow too.

[WouterM]

Hi,

In this scenario I would use a named range for one series off cells which should be cleared before sending off the document. For instance the name “MustBeDeleted”.
Then in de workbook_befereSave this code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error GoTo MaySendThis
    
    If IsEmpty(Range("MustBeDeleted").Cells(1, 1)) Then
        MsgBox "It is save to send this"
    Else
        MsgBox "Must Be deleted before sending", , "Still present"
    End If
        
    Exit Sub
MaySendThis:
    MsgBox Err.Description, , "An error occured"
End Sub

Hoop this helps,

[JackBauer]

Unfortunately have no time to check this now but will return to it. Meanwhile will definitely give respect and many thanks for this reply!!!