Не дать сохранит файл при условии

[Диас]

Здравствуйте. Имеется файл EXCEL. Как можно сделать его же средствами так, чтобы если заполнил столбец НАИМЕНОВАНИЕ, но забыл вбить ЦЕНУ, пользователь не смог сохранить этот файл???

[дмидми]

Событие
Workbook_BeforeSave
, проверка всего, что надо проверить, и если что-то не так -
Cancel = True

[Диас]

Это я так понял если я работаю с файлом через скажем Дельфи. А мне надо средствами самого же Excel'a. Или тут тоже есть события?

[IgorGO]

События те же - средства обработки другие.

"Тут Вам не Англия, тут надо глубже копать..."

[дмидми]

Сообщение от Диас

Это я так понял если я работаю с файлом через скажем Дельфи. А мне надо средствами самого же Excel'a. Или тут тоже есть события?

Дельфи в данном случае категорически ни при чём.
Это - если Вы хотите использовать именно средства самого Excel'я.

Входите (в VBE) в модуль "Эта книга", из комбобокса вверху слева выбираете объект Workbook, из комбобокса вверху справа - событие BeforeSave, и - вперёд, за орденами!
Как запретить сохранение, я Вам уже написал.

[Диас]

Большое спасибо!!! Получилось что-то вроде этого:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer
For i = 1 To Лист1.UsedRange.Rows.Count
If Лист1.Range("A" & i).Value = "123" And Лист1.Range("B" & i).Value = "123" Then Cancel = True
Next i
If Cancel Then MsgBox ("safsdf")
End Sub

Вдруг кому пригодится )

[дмидми]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim r As Range, ur As Range
    With Лист1
        Set ur = Intersect(.UsedRange, .Range("A:B"))
    End With
    If Not ur Is Nothing Then
        If ur.Columns.Count = 2 Then
            For Each r In ur.Rows
                If r.Cells(1, 1) = "123" Then
                    If r.Cells(1, 2) = "123" Then
                        MsgBox ("safsdf")
                        Cancel = True
                        Exit For
                    End If
                End If
            Next
        End If
    End If
End Sub

Сообщение от Диас

Вдруг кому пригодится