Combining two vba codes in the same sheet

Hello,
I have two vba codes one for time stamping the other to lock cells after data input. How would I go about combining the two in the same worksheet?

"Lock cells on data input"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo justenditall

Application.EnableEvents = False
If Not Intersect(Target, Range("A1:Z300")) Is Nothing Then
If Target.Value <> "" Then
ActiveSheet.Unprotect Password:="thepassword"
Target.Locked = True
End If
End If

ActiveSheet.Protect Password:="thepassword"

justenditall:
Application.EnableEvents = True
End Sub

"Time stamp"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        With Target
            If .Count > 1 Then Exit Sub
            If Not Intersect(Range("e2:e10500"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 3).ClearContents
                Else
                    With .Offset(0, 3)
                        .NumberFormat = "hh:mm:ss"
                        .Value = Now
                    End With
                End If
                Application.EnableEvents = True
            End If
        End With
             With Target
            If .Count > 1 Then Exit Sub
            If Not Intersect(Range("i2:i10500"), .Cells) Is Nothing Then
                Application.EnableEvents = False
                If IsEmpty(.Value) Then
                    .Offset(0, 2).ClearContents
                Else
                    With .Offset(0, 2)
                        .NumberFormat = "hh:mm:ss"
                        .Value = Now
                    End With
                End If
                Application.EnableEvents = True
            End If
        End With
    End Sub

I will greatly appreciate all the help given. Thanks

Could you pls put your code between code brackets. See forum rule #1.

As for your question:
the quickest (and dirtiest) way is to change the first "end sub" into "exit sub" and you're done.

Better is to decently structure your code like this:

Start:
      'Put all the thing you alway need to do at the start of any procedure

LockCells:
     If Not Intersect(Target, Range("A1:Z300")) Is Nothing Then
     and the rest of the code needed for this procedure
     ....
     Goto Finish

TimeStamp:
     If Not intersect(Target, any relevant range here) is Nothing Then
     and the rest of the code needed for this procedure
     .....
     Goto Finish

Finish:
     'Put all the thing you alway need to do at the end of any procedure
     ......

end sub

Of course there are more options like a select case construct.

Hi Adriel,
here's the workbook uploaded.
I edited the worksheet_change procedure to fit your needs (I hope).
And added some comments.

Hi Adriel,
will look into it tomorrow.
Really need some sleep now

Hi Adriel,
found the issue:
the first time the macro generates a timestamp the workbook is unprotected, but the second time it is.
When the macro wants to change the cell for the timestamp it runs into an error.
However, because there is an instruction "on error goto justenditall" it just jumps to that section skipping the whole procedure without notification.

Solution is to unprotect the workbook before the timestamp is entered and protect it again after that's done.

ActiveSheet.Unprotect Password:="thepassword"
    .NumberFormat = "hh:mm:ss"
    .Value = Now
ActiveSheet.Protect Password:="thepassword"

Hi Adriel,
here is the complete sub worksheet(change()
Lines to be insterted ad marked in red.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error GoTo JustEndItAll

Start:
    Application.EnableEvents = False
    
FormatCells:
    With Target
        If .Count > 1 Then GoTo JustEndItAll
        If Not Intersect(Range("e2:e10500"), .Cells) Is Nothing Then
'            Application.EnableEvents = False <-obsolete. done in Start
            If IsEmpty(.Value) Then
                .Offset(0, 3).ClearContents
            Else
                With .Offset(0, 3)
                    ActiveSheet.Unprotect Password:="thepassword"
                    .NumberFormat = "hh:mm:ss"
                    .Value = Now
                    ActiveSheet.Protect Password:="thepassword"
                End With
            End If
'            Application.EnableEvents = True <-obsolete. done in justenditall
        End If
    End With
    With Target
        If .Count > 1 Then GoTo JustEndItAll
        If Not Intersect(Range("i2:i10500"), .Cells) Is Nothing Then
'            Application.EnableEvents = False <-obsolete. done in start
            If IsEmpty(.Value) Then
                .Offset(0, 2).ClearContents
            Else
                With .Offset(0, 2)
                    ActiveSheet.Unprotect Password:="thepassword"
                    .NumberFormat = "hh:mm:ss"
                    .Value = Now
                    ActiveSheet.Protect Password:="thepassword"
                End With
            End If
'            Application.EnableEvents = True <-obsolete. done in justenditall
        End If
    End With
    'If LockCells is not to be executed uncomment the next line
    'Goto justenditall
    
LockCells:
    'WARNING!
    'This section will not be executed if changed cell is in the range e301:e10500 or i301:i10500
    'If that's not intended to be so, then alter the range below to "A1:A10500"
    If Not Intersect(Target, Range("A1:Z300")) Is Nothing Then
        If Target.Value <> "" Then
            ActiveSheet.Unprotect Password:="thepassword"
            Target.Locked = True
        End If
        ActiveSheet.Protect Password:="thepassword"
    End If
    GoTo JustEndItAll 'Skip the rest

JustEndItAll:
    Application.EnableEvents = True

End Sub

Hi Adriel,
glad I could help.
If this solved your problem pls mark your thread as solved (see thread tools).