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."


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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!
>