2003 de excel açılmasın

[kan-nas]

Merhaba,
2007 ve 2010 Excel kullanıyoruz. 2003 Excelde 2007 de hazırladığım program açılınca formatı bozuluyor. Dosyanın 2003 excelde açılmaması sadece 2007 ve 2010 versiyon Excelde açılması için nasıl bir kod yazılabilir.

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayın.

Private Sub Workbook_Open()
 
    If Split(Application.Version, ".")(0) < 12 Then
        MsgBox "2003 ve alt sürümlerde" & Chr(10) _
            & "Açamazsınız"
        Application.Quit
    End If
 
End Sub

.

 

[kan-nas]

Split(Application.Version, ".")(0) < 12

Üstad yukarıdaki kod 2003 ve altını nasıl tanıyor.Sana zahmet açıklar mısın?

 

[Ömer]

Excel de versiyon dilleri ... 9.0 - 10.0 - 11.0 - 12.0 - 14.0 şeklinde ilerler. 11. versiyondan sonrası sırasıyla 2007 ve 2010 versiyonlarıdır.

Burada "Application.Version" komutu 11.0 (11.0 bir örnektir.) şeklinde versiyonu bulur. Split komutu ilede "." simgesinden önceki değeri alırız. Bu değer 2007 nin versiyonu olan 12 değerinden küçükse dosya 2003 ve alt versiyonlardan açılıyor demektir.

Versiyınlarında detayına linkten ulaşabilirsiniz.

http://tr.wikipedia.org/wiki/Microsoft_Excel

.