Excel Unprotect/.Protect Properties 1

[rjm65]

When using the following:

ActiveSheet.Protect Password:="my password"

Is there someway to set it up so that only unlocked cells can be selected?

Thanks,
Raymond

 

[KenWright]

Something along these lines simply recorded from Excel 2003

Sub Protect()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

I think this option only came in with Excel XP though.

Regards
Ken.................

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[rjm65]

Thank you, that's exactly what I was looking for!

Raymond

 

[KenWright]

You're welcome

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission
---------------- Click here to help the tsunami victims ----------------