Send cell by email - protected sheet

[menaaj]

I have a worksheet that has cells/formulas protected so that the data
stays accurate. I left certain cells unprotected for others to access and
fill in their information. The problem is that when trying to send the
worksheet as the message body only by email, not an attachment, an error pops up
saying:

"A sheet in the workbook you are trying to save is password protected.
Password protected sheets cannot be saved in a Web Page. To save this file
as a Web Page, you must first remove the password."

Send the workbook as an attachment is not an option, any suggestions?

Thanks...

 

[AOB]

If you are using VBA to generate the e-mail, try turning the protection off, then copying it to your e-mail, then switching it back on again?

Dim sht As Worksheet
With sht
    .Unprotect "Password"
    ....
    .Protect "Password"
End With

Also, I'm not sure how you are embedding the range into the body of the e-mail, but I tend to publish it to a HTML file :

Dim wbk As Workbook
Dim sht As Worksheet
Dim rng As Range

wbk.PublishObjects.Add xlSourceRange, "C:\Temp\Temp.htm", sht.Name, rng.Address, 0, "", ""

...and then read that into a text stream (using FSO) and add it to the HTML body of the MailItem. Might be worth looking into; I've never noticed it having an issue with protected cells...

 

[menaaj]

Thanks a lot the first solution, works pretty well

Regards from Costa Rica...