Run multiple VBA codes for 1 spreadsheet.

[Angel7]

How do you combine the following 2 VBA code for the same spreadsheet:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "123"
Target.Locked = True
ActiveSheet.Protect "123"
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = 1 Then
Cells(.Row, 2).Value = Date '+ Time
End If
End With
Next Cell
End Sub

 

[pedie]

What is it that you're trying to do?
'm not sure what are you trying to achieve but try this

[/FONT]
[FONT=Courier New]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Target
With Cell
If .Column = 1 Then[/FONT]
[FONT=Courier New]Application.EnableEvents = False
ActiveSheet.Unprotect "123"
Cells(.Row, 2).Value = Date '+ Time
Cells(.Row, 2).Locked = True
ActiveSheet.Protect "123"[/FONT]
[FONT=Courier New]Application.EnableEvents = True
End If
End With
Next Cell
End Sub

 

[Angel7]

I appreciate your help with this.

My goal is to Auto Lock cells after data entry and to Auto enter a date as well.

The formula you supplied works only for the Auto date entry not the Auto Lock.