Как ограничить ввод данных в ячейку определенной датой?

[Serg960]

Уважаемые специалисты!
Подскажите, как сделать следующее:
- есть обычная таблица, в которую вносятся простые числовые данные (0,1,2,3,...)
- необходимо, чтобы в разные ячейки было установлено разное ограничение ввода данных по датам. Т.е. для примера - в эту ячейку нельзя ввести данные после 8-го июня 2018. В следующую - после 15 инюня. И т.д.

Спасибо.

[boa]

Не могу загрузить файл, но
в диапазоне "D3:O9" размещена сама таблица
а во 2-й строке даты ограничивающие ввод.

В модуль листа впишите следующий код

Option Explicit
Dim OldValue

Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D3:O9")) Is Nothing Then Exit Sub
    If Selection.Count <> 1 Then ActiveCell.Select: Exit Sub
    Application.EnableEvents = False
    If Cells(2, Target.Column).Value < Date Then Target.Value = OldValue
    Application.EnableEvents = True
End Sub

ну и конечно макросы должны быть включены

[Serg960]

Спасибо, попробую.

[boa]

пожалуй измените

Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue = ActiveCell.Value
End Sub

что бы не было путаницы при выделении нескольких ячеек

[Serg960]

Спасибо