Thread: unlocking a row
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Roger Govier[_3_] Roger Govier[_3_] is offline
external usenet poster
 
Posts: 2,480
Default unlocking a row

Hi AJ

This one approach that might work for you, which uses worksheet event code.
In this example the user would be limited to only entering data one cell
below the last entry made in columns C through J.
The range can be altered to suit.
The cells themselves do not need to be protected.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr As Long
' this will limit entry in columns C through J
' Amend to suit
If Target.Column < 3 Then Exit Sub ' C
If Target.Column 10 Then Exit Sub 'J
lr = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
ScrollArea = Cells(lr, Target.Column)
Cells(lr, Target.Column).Activate
End Sub

Copy the Code above
Right click Sheet tab View Code
Paste code into white pane that appears
Alt+F11 to return to Excel

This is event code which will be triggered automatically.

--
Regards
Roger Govier

"AJ" wrote in message
...
Is it possible to lock a worksheet then only allow one row at a time to be
unlocked for editing? If so, how?

Thanks so much!

--
AJ