Могу ли я запретить Пользователю сохранять файлы из неподдерживаемой версии Excel?

Question

Я создаю приложение Excel, которое имеет защиту паролем на листах. Что я хочу сделать, так это запретить пользователям сохранять файлы при их открытии с использованием более старой версии Excel, которая не имеет функции защиты паролем. Старше 2003 года. Это достижимо? Спасибо заранее.

Answer 1

Это код для проверки версии Excel и отмена сохранения, если версия старше:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim xl_version As Integer
    xl_version = VBA.Val(Application.Version)

    If xl_version < 11 Then
        Cancel = True
        MsgBox "Your Excel version is too old"
    End If

End Sub

Список версий Excel:

8: «Excel 97»

9: «Excel 2000»

10: «Excel 2002»

11: «Excel 2003»

12: «Excel 2007»

14: «Excel 2010»

15: «Excel 2013»

16: «Excel 2016»