Ячейка обязательная для заполнения

[Akom]

Как в Excel сделать ячейку обязательной для заполнения? Чтобы, например нельзя было сохранить файл если ячейка не заполнена.

[SAS888]

Например, в модуль книги поместить код:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets(1).[A1] = "" Then
        MsgBox "Ячуйку A1 первого листа необходимо заполнить!"
        Cancel = True
    End If
End Sub