View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default xlUnlocked Cells Not Working

Hi Robert

Do you know that you have this option in Excel 2002-2003
when you protect a sheet?
ToolsProtection....Protect sheet

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Robert" wrote in message ...
Thanks Ron for pointing me in the right direction. Will test out the sample
code.

Regards, Robert

"Ron de Bruin" wrote in message
...
Hi

This setting is not saved with the file
You must add code to the workbook open event to set it
every time you open the workbook

If you copy this event in the Thisworkbook module
http://www.mcgimpsey.com/excel/modules.html

It will run automatic when you open the workbook and
Protect each sheet in the workbook and set the EnableSelection

Test it on a test workbook

Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
Sh.Protect userinterfaceonly:=True
Sh.EnableSelection = xlUnlockedCells
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Robert" wrote in message

...
I have a file where sheet 1 is protected but has two unlocked cells. I

have
set in VBA browser the EnableSelection to xlUnlockedCells.

Returning to the spreadsheet, sheet 1 correctly only allows movement

between
the two unlocked cells. However, if I close the file after saving, when
opened the xlUnlockedCells has been turned off.

Any ideas?

Thanks, Robert