lock cells after data entry

**aleenkhan** · 08-06-2012, 01:17 AM

Hi,

The below code works for column A and B. When I enter data in any row in column A (lets say A1), the adjacent row in column B i.e., B1 will take a times stamp and then every row having data in it (i.e., A1 and B1 in this example) will get locked.

What I am looking for is the code which do the same thing but for column C and column D also.

Below is the code which i m using in Worksheet module :


Option Explicit 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Column > 2 Then Exit Sub 'only works in Columns A & B
    With ActiveSheet 
        .Unprotect 
        If Target.Value > "" Then Target.Locked = True 
        .Protect 
    End With 
End Sub

Can someone help?

Thanks in advance.

Aleen

**mmmarks** · 08-06-2012, 02:14 AM

hi ,
something like this...

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 3 Then
        If Target.Value <> "" Then Target.Offset(0, 1).Value = Time
        End If
        
        
End Sub