Запрет режима преобразования файлов excel 2007 для excel 2003

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, есть ли решение для следующей ситуации:
На компьютере пользователя установлен Excel 2003 и "FileFormatConverters" (это утилита MS для открытия файлов office 2007 версии в режиме преобразования).
Есть следующий код в книге Excel2007 (файл XLSM):

Private Sub Workbook_Open()
If Application.Version Like "12*" Then
'...
Else
MsgBox "Из-за проблем с совместимостью, файл будет закрыт.", vbCritical
Dim wb As Workbook: Application.ScreenUpdating = False
For Each wb In Workbooks
If wb Is ThisWorkbook Then wb.Close False
Next wb
End If
End Sub

Когда я открываю эту книгу xlsm через Excel 2003 (в котором нет других открытых книг), то код работает и книга xlsm закрывается.
Но когда в Excel 2003 уже есть открытые книги, то при открытии xlsm код не работает - книга xlsm остается открытой.
Подскажите пожалуйста, как поправить код? Возможно дело в том, что когда книга xlsm открывается в excel 2003, то сначала происходит ее преобразование?
Заранее спасибо.

[EducatedFool]

так попробуйте

Private Sub Workbook_Open()
    If Val(Application.Version) > 11 Then ' Excel 2007 и новее
        '...
    Else
        MsgBox "Из-за проблем с совместимостью, файл будет закрыт.", vbCritical
        ThisWorkbook.Close False ' закрываем этот файл
    End If
End Sub

[ольгаг]

Спасибо работает!
Подскажите пожалуйста, как поправить то что у меня после действия в этом коде:
MsgBox "Из-за проблем с совместимостью, файл будет закрыт.", vbCritical
ThisWorkbook.Close False ' закрываем этот файл

в моей книге на событии "Workbook_BeforeClose" стоит вывод окна:

Select Case MsgBox("Вы хотите СОХРАНИТЬ изменения в файле '" & Me.Name & "' перед его закрытием ?", vbYesNo + vbQuestion, "Выход")
Case vbYes: ActiveWorkbook.Save
Case vbNo: ActiveWorkbook.Saved = True
End Select

Как можно обойти (запретить) этот Msgbox (при закрытии книги) или инициировать нажатие "Нет"?
Спасибо!

[EducatedFool]

в моей книге на событии "Workbook_BeforeClose" стоит вывод окна:

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


Для решения проблемы, в обработчике события Workbook_BeforeClose,
первой строкой добавьте проверку версии Excel:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Val(Application.Version) > 11 Then ThisWorkbook.Saved = True: Exit Sub
    
    ' далее ваш код
End Sub

[ольгаг]

Спасибо, решение найдено!