[Iska]

Какое приложение-то?

[fraid]

MS Excell

[Iska]

MS Excell »

Не слишком удачный выбор.

Примерная болванка кода для списка «Список1», в который будет осуществляться ввод:

Код:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.ListObjects.Item("Список1").Range) Is Nothing Then
        If Not IsEmpty(Target.Value) Then
            If Hour(Time()) >= 8 And Hour(Time()) < 17 Then
                If DateDiff("d", Target.Value, DateAdd("d", 1, Date)) < 1 Then
                    ' ОК
                Else
                    MsgBox "Error"
                    Target.ClearContents
                End If
            Else
                MsgBox "Error"
                Target.ClearContents
            End If
        End If
    End If
End Sub

Поместите код в модуль того же рабочего листа.