I am trying to have the macro unprotect the sheet, perform the
function, then re-protect the sheet. I just need to know how to go
about entering the code for the protection options I want it to
apply. The only ones I want to apply are "Select Unlocked Cells" and
"Edit Objects". Could you give me any info on how I need to enter
that? Here is the macro I am currently using:





Worksheets("Surface #1").Unprotect "password"

Rows("14:20").Select

Selection.EntireRow.Hidden = False

Range("H15").Select

Worksheets("Surface #1").Protect "password"





I figured it should look something like this but it didn't work:





Worksheets("Surface #1").Unprotect "password"

Rows("14:20").Select

Selection.EntireRow.Hidden = False

Range("H15").Select

Worksheets("Surface #1").Protect "password",
SelectUlockedCells:=True, EditObjects:=True





Please reply with any suggestions you might have!

Hi Scott,

Locked cells are only locked under password protection. Once protection is
removed all cells "protection options" are removed.

Sheets("Surface #1").UnProtect Password:= "password"
Range("H15").Select
Rows("14:20").EntireRow.Hidden = False
Sheets("Surface #1").Protect Password:= "password"


Alan


"The only dumb question is a question left unasked."


wrote in message
oups.com...
I am trying to have the macro unprotect the sheet, perform the
function, then re-protect the sheet. I just need to know how to go
about entering the code for the protection options I want it to
apply. The only ones I want to apply are "Select Unlocked Cells" and
"Edit Objects". Could you give me any info on how I need to enter
that? Here is the macro I am currently using:





Worksheets("Surface #1").Unprotect "password"

Rows("14:20").Select

Selection.EntireRow.Hidden = False

Range("H15").Select

Worksheets("Surface #1").Protect "password"





I figured it should look something like this but it didn't work:





Worksheets("Surface #1").Unprotect "password"

Rows("14:20").Select

Selection.EntireRow.Hidden = False

Range("H15").Select

Worksheets("Surface #1").Protect "password",
SelectUlockedCells:=True, EditObjects:=True





Please reply with any suggestions you might have!