Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 4 Then Exit Sub
If Cells(1, Target.Column).Text = "T" Then
    InputStr = InputBox("Новый комментарий от " + Format(Date, "yyyy.mm.dd") + " " + GetCutUserName() + " :", "Комментарий")
    If Len(InputStr) = 0 Then Exit Sub
    Do
        If InStr(Target.Value, String(2, Chr(10))) = 0 Then Exit Do
        Target.Value = Replace(Target.Value, String(2, Chr(10)), Chr(10))
        DoEvents
     Loop
    If Len(Target.Value) = 0 Then
        Target.Value = Format(Date, "yyyy.mm.dd") + " " + GetCutUserName() + ": " + InputStr
    Else
        Target.Value = Format(Date, "yyyy.mm.dd") + " " + GetCutUserName() + ": " + InputStr + Chr(10) + Chr(13) + Target.Text
    End If
    With Target.Characters(1, 17).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 15
        .Color = -65536
        End With
    With Target.Characters(17, Len(Target.Value) - 16).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 11
        .Color = -16777216
    End With
End If
 
If Cells(1, Target.Column) = "D" Then
InputStr = InputBox("Введите новую дату")
 
 If (Len(InputStr) = 0) Or (Not IsDate(InputStr)) Then Exit Sub
    Target.Value = InputStr + Chr(10) + CStr(CDate(InputStr) - 3) + Chr(10) + CStr(CDate(InputStr) - 4) + Chr(10) + Target.Text
    With Target.Characters(1, 10).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 12
    End With
    With Target.Characters(11, Len(Target.Value) - 10).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 7
    End With
End If
End Sub