我是否可以限制用户从不受支持的excel版本保存文件?

我是否可以限制用户从不受支持的excel版本保存文件?,excel,vba,Excel,Vba,我创建的excel应用程序在工作表上有密码保护。我想做的是限制用户在使用旧版本的excel打开文件时保存文件,该excel没有密码保护功能。早于2003年。 这是可以实现的。 提前感谢。这是检查Excel版本的代码,如果版本较旧,则会取消保存: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim xl_version As Integer xl_version = V

我创建的excel应用程序在工作表上有密码保护。我想做的是限制用户在使用旧版本的excel打开文件时保存文件,该excel没有密码保护功能。早于2003年。 这是可以实现的。
提前感谢。

这是检查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
Private子工作簿\u保存前(ByVal SaveAsUI为布尔值,Cancel为布尔值)
Dim xl_版本为整数
xl_version=VBA.Val(Application.version)
如果xl_版本<11,则
取消=真
MsgBox“您的Excel版本太旧”
如果结束
端接头
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”

保存之前,您不能在工作簿中检查版本吗?取消参数可以设置为true以避免保存。