Sheets("Sheet1").UnProtect Password:="tada"

Sheets("Sheet1").Protect Password:="tada"

As for the e-mail thing... Not a clue...
--
HTH...

Jim Thomlinson


"ranswrt" wrote:

I want to be able to use a password to protect the sheets. How do I write a
procedure that unprotects these sheets using a password?

Also, I checked the box below to get notified by email when I get a reply,
but I haven't been getting emails notifying me when a question is answered.
What do I need to do?

Thanks