فتح اكسل على اوفيس 2003

[طائع]

السادة أساتذتى واخوانى لدى ملف  اكسل 2003 ولا اريده يفتح ولا يعمل الا على اوفيس 2003 فقط 

 

 

 

[أبو حنــــين]

جرب هذا الكود لانه ليس لديا أوفيس 2003 لتجربته

Private Sub Workbook_Open()
    If Application.Version > "11" Then
    MsgBox "هذا الرنامج لا يعمل إلا على النسخة 2003", vbInformation + vbOKOnly, "خطأ"
    Application.DisplayAlerts = False
    With ThisWorkbook
    .Saved = True
    .Close
    End With
    End If
End Sub

 

[طائع]

تمت التجربة و و ضعت الطود فى موديول ولكن لم يتم المطلوب

[أبو حنــــين]

السلام عليكم

الكود لا يوضع في موديل بل يوضع في الحدث 

Workbook_Open

15 دقائق مضت, طائع said:

تمت التجربة و و ضعت الطود فى موديول ولكن لم يتم المطلوب

 

[طائع]

تم المطلوب 

وشكرا لأستاذى أبو حنين