Protected cells

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

How do I my protected cells in a sheet unselectable?
Thanks in advance
 
ActiveSheet.EnableSelection = xlUnlockedCells

this must be set each time the workbook is opened as it is not persistent.
Possibly use the workbook_open event or put it in the sheet activate event.
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

UnSelect the copied to range after copy... 4
Cell protection problem 3
Returned position address on protected sheet 7
Protecting cell contents 3
Not allow user to select a locked cell 2
Question about how to use range in VBA 2
Sharing workbook removes cell protection 1
Locked Cells and Hyperlinks 1

Back
Top