Applying Protection Perameters With VBA Code
 

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!

Applying Protection Perameters With VBA Code
 

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!