How to Lock the version of Excel File

codebox said:

I am a visual Foxpro Programer.

Visual foxpro can append data directly from .xls file(5/95 Workbook) into .dbf/table but It can not append from Excel 2007 or xlsx files.

So, keeping in view the above limitation of visual foxpro, I am giving samle excel 5/95 sheet to the user where they can put their data and upload in my application.

But my problem is that now most of the users have higher version installed in their system and whenever they save my excel it automatically gets converted in higher version, due to which the data is not added in Visual foxpro application.

Kinldy Guide that is there any technique by which though the user saves information in my excel file but it gets saved in 5/95 work book vesron only.

Please Guide
Regards

Click to expand...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sSaveName As Variant
    
    Application.EnableEvents = False
    sSaveName = CStr(Application.GetSaveAsFilename)
    If sSaveName = "False" Then Exit Sub
    
    ThisWorkbook.SaveAs Filename:=sSaveName, FileFormat:=xlExcel9795
    
    Cancel = True
    Application.EnableEvents = True
End Sub