How to activate the below both codes in the same sheet

[Tariq384]

Dear All,

Please advise me how to activate the below (1 & 2) Codes to be functioning on the same sheet and your help is highly appreciated.

1) To show the user name on specific cell based on another cell value
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Or Target.Column = 2 Then
ThisRow = Target.Row
If (ThisRow = 1) Then Exit Sub
' time stamp corresponding to cell's last update
Range("D" & ThisRow).Value = Now
' Windows level UserName | Application level UserName
Range("C" & ThisRow).Value = Environ("username") & "|" & Application.UserName
Range("C:D").EntireColumn.AutoFit
End If
End Sub


2) To Lock the cell after editing
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
ActiveSheet.Unprotect Password:="01234"
For Each cel In Target
If cel.Value <> "" Then
cel.Locked = True
End If
Next cel
ActiveSheet.Protect Password:="01234"
Exit Sub

End Sub


I Like to activate them on the same worksheet.

 

[jasonb75]

Please remember to use the correct tags when posting code. The easy way is to click the </> icon and post your code into the pop up window (only your code goes onto that window, not your actual post or any additional text).

See if this does what you need

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
With Target
    If .Column = 1 Or .Column = 2 Then
        If .Row > 1 Then
    ' time stamp corresponding to cell's last update
        Cells(.Row, 4).Value = Now
    ' Windows level UserName | Application level UserName
        Cells(.Row, 3).Value = Environ("username") & "|" & Application.UserName
        Range("C:D").EntireColumn.AutoFit
    End If
    ActiveSheet.Unprotect Password:="01234"
        For Each cel In .Cells
            .Locked = (.Value <> "")
        Next
    ActiveSheet.Protect Password:="01234"
End With
End Sub

 

[Tariq384]

Thank you for your advice and quick reply , and apologize as I'm new here

I'm getting this error could you please check

 

[jasonb75]

Sorry, I missed an End If

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
With Target
    If .Column = 1 Or .Column = 2 Then
        If .Row > 1 Then
                ' time stamp corresponding to cell's last update
            Cells(.Row, 4).Value = Now
                ' Windows level UserName | Application level UserName
            Cells(.Row, 3).Value = Environ("username") & "|" & Application.UserName
            Range("C:D").EntireColumn.AutoFit
        End If
    End If
    ActiveSheet.Unprotect Password:="01234"
        For Each cel In .Cells
            .Locked = (.Value <> "")
        Next
    ActiveSheet.Protect Password:="01234"
End With
End Sub

 

[Tariq384]

thanks you but I don't know why still i face some errors , if you still there to help please check the below

I'm still not getting the user name and getting this error instead

Note: Once I fill the request # i need to get the now date and username then locking the filled cells

 

[jasonb75]

I don't see an error, at the moment the cell in column I is empty because you have stopped the code before the name has been entered.

 

[Tariq384]

Thank you , it's working fine now , the cells were protected before entering the values,

thanks for your support.