Engel koyma

[cocoa35]

Arkadaşlar;
Herhangi bir excel dosyasının bazı programlar tarafından açılmasına engel koyabilirmiyiz..mesela OpenOffice.org programı tarafından açılmasına engelliyebiyormuyuz..?

 

[Korhan Ayhan]

Selamlar,Aşağıdaki kod ile uygulamanın başlığını kontrol edip dosya açılışını kısıtlayabilirsiniz.

Sub PROGRAM_KONTROL()    If InStr(1, Application.Caption, "Microsoft") = 0 Then        MsgBox "Bu dosyayı bu programla açamazsınız !", vbInformation        Application.Quit    End IfEnd Sub

 

[cocoa35]

sn korhan bey;

vermiş olduğunuz kod'da "Microsoft" yazan bölüme ,"OpenOffice" yazmama rağmen yinede söz konusu program tarafından dosya açıldı !

 

[cocoa35]

sn korhan bey;

bir kez daha hatırlatmak istedim ;vermiş olduğunuz kod'da "Microsoft" yazan bölüme ,"OpenOffice" yazmama rağmen yinede söz konusu program tarafından dosya açıldı !
eksik işlemmi yapıyorum acaba...?

 

[Zeki Gürsoy]

Open Office programı Excel kütüphanesini tanımaz. Application, Workbook ..vs yoktur.

 

[uzmanamele]

merhaba

aşağıdaki kodu OpenOffice göre değiştiriniz.

Private Sub Workbook_Open()
Rem dosya excel2007 ile kullanılmalıdır
If Excel.Application.Version <> "12.0" Then
MsgBox "Dosyayı Excel 2007 İle Açmalısınız.", vbCritical, "Hop Dedik!!!"
Application.ThisWorkbook.Close 0
End If
End Sub

excel2007 için Excel.Application.Version <> "12.0"
bunun OpenOffice karşılığı ne ise değiştirerek deneyiniz.

not:
Zeki beyin söylediği gibi, Application, Workbook vs OpenOffice de yoksa kodun çalışıp çalışmadığını bildirirseniz memnun oluruz.