CircleInvalid - Microsoft Office Excel

kipish_lp · 29.06.2010, 12:15

Добрый день! Подскажите, пожалуйста, как можно "поймать" CircleInvalid?
При "Проверке" если заполнены данные не правильно, можно обвести неправильные. Я хочу сделать проверку на правильность перед закрытием. Как можно сделать: если обведены данные, то не закрывать книгу?

Код:

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Sh In ThisWorkbook.Sheets
    Sh.CircleInvalid
    Next Sh
End Sub

Если просто Cancel = True, то вообще не закрывается.

29.06.2010, 12:15	#1
kipish_lp Форумчанин Регистрация: 25.11.2009 Сообщений: 113	CircleInvalid Добрый день! Подскажите, пожалуйста, как можно "поймать" CircleInvalid? При "Проверке" если заполнены данные не правильно, можно обвести неправильные. Я хочу сделать проверку на правильность перед закрытием. Как можно сделать: если обведены данные, то не закрывать книгу? Код: `Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each Sh In ThisWorkbook.Sheets Sh.CircleInvalid Next Sh End Sub` Если просто Cancel = True, то вообще не закрывается.