Последовательное заполнение ячеек

[LTS92]

Добрый день, уважаемые форумчане!)
Недавно начала осваивать макросы и VBA в Excel`е, прошу не бросаться тухлыми помидорами, если задам вопросы по элементарным вещам.
Суть в следующем. Я пытаюсь сделать файлик с анкетой для клиентов, которые зачастую не понимают, что надо заполнять ВСЕ ячейки.
Поковыряв интОрнеты и форумы нашла кусочек кода, который при закрытии файлика выругивается, если не заполнена одна ячейка.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If IsEmpty(Range("H6").Select) Then
        MsgBox "Забыли заполнить ячейку!", vbExclamation, "Ошибка"
    End If
    Cancel = True
End Sub

Мне необходимо, 1) чтобы шла проверка не только на 1 ячейку, а сразу по всей страничке и всем ячейкам, которые невнимательный клиент не заполнил.
2) в файлике есть радиокнопки, в которых я уже организовала выбор одного значения "Да"/"Нет". Необходимо прописать те же условия, что и с ячейками, описанная выше.
3) как сделать так, чтобы конечный пользователь в определённых ячейках не мог вписать текст. К примеру, вместо даты какую-то абракадабру)

Всем лучи добра и счастья!) Спасибо, что уделили внимание на мои проблемы)

[IgorGO]

1.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    If IsEmpty(Range("H6")) Then MsgBox "Забыли заполнить ячейку!", vbExclamation, "Ошибка":  Exit sub
    ' If IsEmpty(Range("H17")) ...
    '....
    ' If IsEmpty(Range("H28")) ...
    Cancel = False
End Sub

2. присвойте значения на старте

3. Это без программирования: лента "данные", группа "работа с данными", кнопка "проверка данных"