Thread: Protected cells
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Protected cells

Then use Tom's example
In Excel 2002-2003 you have this option when you protect the sheet

Try this on a example workbook

Uncheck the locked property of all cells you want to use first
Select the cells
Ctrl-1
On the Protection tab uncheck locked
Paste this event in the thisworkbook module
and save the file and close it.

When you open the file you only can select unlocked cells
in each sheet.

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
http://www.rondebruin.nl


wrote in message ...
Hi Ron

I am using Excel 2000. Thanks.


-----Original Message-----
Which Excel version do you use ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message

...
Hello,

How do I my protected cells in a sheet unselectable?
Thanks in advance



.