Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error GoTo err1
    
    clm = Target.Column
    trw = Target.Row
    tvl = Target.Value
    If IsEmpty(tvl) Or IsNull(tvl) Then
        GoTo err1
    End If
    
    Dim user1 As String:    user1 = Environ("USERNAME")

    If clm >= 1 And clm <= 10 Then
        If user1 = "Иванов" Then
            
       ' ЧТО ЗДЕСЬ СДЕЛАТЬ ЧТОБЫ НИКТО КРОМЕ ИВАНОВА НЕ МОГ ИЗМЕНЯТЬ УЖЕ ИМЕЮЩИЕСЯ ЗНАЧЕНИЯ
            
        End If
    End If

err1:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub