1 - Открываем файл и пробуем кликнуть на любую ячейку! (Макрос выдаст ошибку)
2 - Отклчаем защиту листа (пароль 1111)
3 - Заново пробуем кликнуть любую ячейку
4 - Вуаля, в этой ячейке сразу появляется выпадающий список!

Private Sub Worksheet_Activate()
Protect Password:="1111", UserInterfaceOnly:=True
End Sub

....
тут всякий код...
.....
 вот на этом месте (только когда с защитой) выдает ошибку - Validation.Modify Type:=xlValidateInputOnly

      For x = 1 To Range("диапазон_1").Rows.Count
             For y = 1 To Range("диапазон_2").Rows.Count
                If Range("диапазон_1").Cells(x, 1) = Range("диапазон_2").Cells(y, 1) Then
'                  ....... если строка найдена во втором диапазоне то выполняется какой-то код..........
                     Exit For
                End If
             Next y
             If y = Range("диапазон_2").Rows.Count + 1 Then
'                  .......если строка НЕ найдена во втором диапазоне то выполняется какой-то другой код..........
             End If
       Next x
'        .......Дальше выполняется еще код в зависимости от результатов......................

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Address = "$F$4" Then
'x - строки таблицы 1
'y - строки таблицы 2
      For x = 1 To Range("Таблица1").Rows.Count
             For y = 1 To Range("Таблица2").Rows.Count
                If Range("Таблица1").Cells(x, 1) = Range("Таблица2").Cells(y, 1) Then
                     MsgBox "Строка " & Range("Таблица1").Cells(x, 1) & "  - ДА"
                     Exit For
                End If
             Next y
             If y = Range("Таблица2").Rows.Count + 1 Then
                MsgBox "Строка " & Range("Таблица1").Cells(x, 1) & "  - НЕТ"
             End If
      Next x
  End If

End Sub

If Not Intersect(Target, Range("...")) Is Nothing Then
  If IsEmpty(Target(1, 0)) Then Target(1, 0) = Date ' вот это хотелось бы написать короче
...
...
...
End If

это - If IsEmpty(Target(1, 0)) Then Target(1, 0) = Date
либо это - Target(1, 0) = IIf(IsEmpty(Target(1, 0)), Date, Application.Undo)

If Target.Column = 2 Then
If IsEmpty(Target(1, 0)) Then Target(1, 0) = Date
End If

1 - If Target Then If IsEmpty(Target(1, 0)) Then Target(1, 0) = Date
2 - If Target Then Target(1, 0) = IIf(IsEmpty(Target(1, 0)), Date, Application.Undo)