Adding Message to Spreadsheet
 

I want to add a message to users that activates when the
user goes to: TOOLS -- Protect.

Presently the pages are protected, however, users can
unprotect (with a user password) to change specific
formulas. I need to monitor what formulas are being
changed. Would like to have user send e-mail specifying
this information. How do I add the message box. I
attempted it in a Macro as follows:

MsgBox ("You must send e-mail to AFMA/MAP indicating
which cells are being changed"), vbExclamation, vbOK

Any assistance will be appreciated. Thanks

Adding Message to Spreadsheet
 

When the user clicks on the OK button you need to add the
xldialogsendmail ... ie.
ans = msgbox("What you want to say", vbyesno)
if ans = vbyes then
Application.Dialogs(xlDialogSendMail).Show
"), "NameofDocument"
end if

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Adding Message to Spreadsheet
 

Thank yo for your assistance, that is just what I needed
-----Original Message-----


When the user clicks on the OK button you need to add the
xldialogsendmail ... ie.
ans = msgbox("What you want to say", vbyesno)
if ans = vbyes then
Application.Dialogs(xlDialogSendMail).Show
"), "NameofDocument"
end if

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!
.