Protection properties

I a using a macro to hide and unhide rows.

The sheet is protected and cells are locked except for the ones that data entry is to made into. This makes it easier of users to tab through the data entry - so the code has to unprotect the sheet, unhide the rows and then protect the sheet again.

This it does, but the protection properties change and the user can then select locked cells.

Is there a way to maintain the protection properties?
Code being used is as below

ActiveSheet.Unprotect Password:="myPW"
Select Case LCase(Rng)
Case "yes", "Select...."
Rows("41:65").EntireRow.Hidden = True
Case "no"
Rows("41:65").EntireRow.Hidden = False

End Select
ActiveSheet.Protect Password:="myPW"

Regards

Ed

Thanks for that, Dave.

The problem is that that 90% of the cells need to be locked.

I suppose I could make them all locked and then unlock those that need to be unlocked but that would still be approx 300.....not practicable really.

What I was really after was a way to preserve the protection properties set initially.

Any ideas?

Ed

Hi, Ed.

Not sure why the cells are becoming unlocked, but using the suggestion above, you could select all cells that are unprotected in the sheet (using the SHIFT and/or CTRL keys while clicking if you didn't know), then enter a name for this range (e.g. Unlocked_Cells).

Then in the code, you could do something like:

Please Login or Register  to view this content.

Hi Jason,

The changing of the protection properties seems a bit random - sometimes it happens on reopening the workbook and sometimes it just seems to have happened and I can't pin down a patten to it.

It may be something that I have to learn to live with, but thanks for the suggestion.

Ed