Запрет сохранения книги пока не заполнены все ячейки

[Verano naranjo]

Умельцы, помогите, пожалуйста,
каким образом можно реализовать следующую вещь: есть диапазон листа, ячейки которого должны быть все заполнены. Как поставить защиту, чтобы невозможно было сохранить книгу, пока все ячейки не заполнены?

[SAS888]

Посмотрите пример во вложении.

[МихаилНН]

Сообщение от SAS888

Посмотрите пример во вложении.

Не работает(((

[Serge 007]

Сообщение от МихаилНН

Не работает(((

Макросы включите.

[HIVE]

Подскажите как можно реализовать задачку: если в пустой ячейке А1 появляется содержимое, то пока не будут заполнены ячейки В1 и С1 файл невозможно будет сохранить. И так в диапазоне например А1:А5, В1:5: С1:С5 соответственно. Спасибо заранее если кто-то откликнется

[EducatedFool]

Сообщение от HIVE

Подскажите как можно реализовать задачку: если в пустой ячейке А1 появляется содержимое, то пока не будут заполнены ячейки В1 и С1 файл невозможно будет сохранить. И так в диапазоне например А1:А5, В1:5: С1:С5 соответственно. Спасибо заранее если кто-то откликнется

Посмотрите на формулу в зелёной ячейке:

  Ячейка: D1      Формула массива  (стиль A1):   =ИЛИ(НЕ(ЕПУСТО(A1:A5))*ЕПУСТО(B1:B5)*ЕПУСТО(C1:C5))
                  Формула массива  (стиль R1C1): =ИЛИ(НЕ(ЕПУСТО(RC[-3]:R[4]C[-3]))*ЕПУСТО(RC[-2]:R[4]C[-2])
*ЕПУСТО(RC[-1]:R[4]C[-1]))

Внимание: ввод формул массива завершается нажатием CTRL+SHIFT+ENTER вместо ENTER

Теперь простейший макрос (расположенный в модуле книги) будет блокировать сохранение файла, если условие не выполняется:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = [d1]
End Sub

Можно немного изменить макрос - тогда формула на листе не понадобится:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = [OR(NOT(ISBLANK(A1:A5))*ISBLANK(B1:B5)*ISBLANK(C1:C5))]
End Sub

[HIVE]

Спасибо, еще немного побеспокою Вас. В примере сохранение возможно, когда заполнена только одна ячейка (либо B1 либо С1) при условии что А1 заполнена.

Немножко уточню конечную цель - Нужно чтобы при вводе значения в А1 пользователю необходимо было заполнить как B1 так и С1, а иначе невозможно было бы сохраниться (лучше всего сообщением типа "Внесите необходимые данные")

[Miguel Sanchez]

Может так:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = [NOT(ISBLANK(A1:A5))*OR(ISBLANK(B1:B 5);ISBLANK(C1:C5))]
End Sub

[Miguel Sanchez]

почему-то у меня эксель не перехватывает данное событие, т.е. никакой реакции на save нет...
Вот моя модернизация данной задачи:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Sub Work()
'Set my_ran = Intersect(ActiveSheet.UsedRange, [a:a])
Set start_ran = ActiveSheet.UsedRange.Item(1).Curre ntRegion

MsgBox "Your table is :" & vbCr & "[" & start_ran.Address & "]", vbInformation
On Error GoTo Err_def
Set blank_ran = start_ran.SpecialCells(xlCellTypeBl anks)
If Not IsEmpty(blank_ran) Then
With blank_ran
.Select
.Interior.ColorIndex = 6
.Interior.Pattern = xlSolid
End With
Cancel = 1
End If
Exit Sub
Err_def: MsgBox "There isn't blank cells in your region!", vbApplicationModal + vbExclamation
With start_ran
.Interior.ColorIndex = 0
End With
Cancel = 0
End Sub

ЗЫ: как обычная "sub" процедура работает, а как событие - не хочет. Что не так?