Yes.

Give us more details of what you want locked or adjust this example sheet event
code.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
ActiveSheet.Unprotect Password:="justme"
n = Target.Row
If Target.Value < "" Then
Target.Locked = True
End If
End If
enditall:
Application.EnableEvents = True
ActiveSheet.Protect Password:="justme"
End Sub

You will have to set cells of column A to unlocked then protect the sheet.

Right-click on the sheet tab and "View Code"

Copy/paste the code into that module.


Gord Dibben MS Excel MVP

On Wed, 28 Nov 2007 08:15:00 -0800, Wm Pincumbe <Wm
wrote:

Is there a way to lock a cell from being changed once data has been entered
into that cell?