Select only Unlocked cell

[BENSON]

Is there a way in VBA to have user restricted to selecting only unlockedcells in a work sheetThks

[sassora]

To enable only the unlocked cells to be selected:
[vba]Sub SelectOnlyUnlocked()
ActiveSheet.Protect
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub[/vba]

To unprotect the sheet again:
[vba]Sub Unprotect()
ActiveSheet.Unprotect
End Sub[/vba]

[BENSON]

Thks for code sassora,I did find the code below prior to your reply which works on the sheet called Vredenburg.However I have added another sheet called Malsmebury and the code does not work on it can anyone help.

Private Sub Workbook_Open()
  Worksheets("Vredenburg").EnableSelection = xlUnlockedCells
   
End Sub

[sassora]

very intuitively:

[vba]Private SubWorkbook_Open()
Worksheets("Vredenburg").EnableSelection = xlUnlockedCells
Worksheets("Malsmebury").EnableSelection = xlUnlockedCells
End Sub[/vba]

[Aussiebear]

or you may wish to try

Private Sub Workbook_Open()
With Worksheets("Vredenburg","Malsmebury")
.EnableSelection = xlUnlockedCells
End With
End Sub