Macro to unprotect sheet --> unlock cells --> protect again

**hrhittn23** · 11-29-2010, 01:59 PM

I've done quite a bit of research, but can't find exactly what I'm looking for. I have a protected worksheet named "Data" which has certain locked cells. The password to unprotect is "Password". I've created a macro to copy from another file (which works great thanks to many of you!) At the end of the macro, I need to unprotect the sheet, unlock cells C13:L1012, then protect it again.

I believe this is possible, right?

**Richard Buttrey** · 11-29-2010, 02:10 PM

Hi,

With Sheets("Data")
   .Unprotect Password:="Password"
   .Range C13:L1012.Locked = False
   .Protect Password:="Password"
End With

HTH

**solnajeff** · 11-29-2010, 02:13 PM

Hi

You need to add three lines of code, however if your sheet is already unprotected omit line 1.

Sheets("Data").Protect "Password"
Range("C13:L1012").Locked = False
Sheets("Data").Protect "Password"

Regards

Jeff

**hrhittn23** · 11-30-2010, 12:09 PM

Thank you guys very much! Sorry I didn't reply sooner, I was put on another job.

The macro works great now!

**6083889** · 01-02-2011, 06:57 AM

i forgate my micro password

**DonkeyOte** · 01-02-2011, 07:00 AM

@608339, please note:

a) do not post questions in the thread of another member (create your own thread and if relevant [not here] post a link to the other thread)

b) we will not answer questions regarding circumvention of security

both of the above are clearly outlined in the Forum Rules (please read them)