Excel Calisma Kitabi adi

[Yakut]

slm

arkadaslar

formda , excel calisma kitabin adi degistiginde dosya acilmiyordu. böyle bir kod vardi.

bu kodu bulamiyorum. arsivimde .....

birileri yüklerse.....


saygilar

 

[ozgretmen]

Kitabın adını değiştirdiğinizde kitap açılmayacaktır.Yalnız dosyayı bilgisayarınıza kayıt edin.Ondan sonra deneyiniz.
Dosya ekte...

 

[Yakut]

hocam , anlayamadim, dosyayi nereye kayit yapmam lazim !

Private Sub Workbook_Open()
kitap = Mid(ThisWorkbook.FullName, 45, Len(ThisWorkbook.FullName))
If kitap <> "AnaDosya.xls" Then ' Buraya kendi dosya adýnýzý yazýnýz.
MsgBox " Kitabýn Adý Deðiþmiþ , Bende Açýlmýyorum Ýþte..."
ActiveWorkbook.Save
Application.Quit
End If
End Sub

 

[ozgretmen]

hocam , anlayamadim, dosyayi nereye kayit yapmam lazim !

Pardon ya...Yanlış bir tabir kullanmışım.Kayıt falan gerekmez.Masaüstünüze indirin.Dosyayı açın.Dosya açılır.Ama ismi değiştirirseniz açılmaz.

 

[Yakut]

hocam,

Private Sub Workbook_Open()
kitap = Mid(ThisWorkbook.FullName, 45, Len(ThisWorkbook.FullName))
If kitap <> "AnaDosya.xls" Then ' Buraya kendi dosya adýnýzý yazýnýz.
MsgBox " Kitabýn Adý Deðiþmiþ , Bende Açýlmýyorum Ýþte..."
ActiveWorkbook.Save
Application.Quit
End If
End Sub


bu kodla , bende dosya acilmiyor. degistir veya degistirme

bir degisiklik yaparak bunu cözdüm= kitap=(ThisWorkbook.Name) digerleri ayni .....

sayin ozgretmen, cevaplariniz icin tesekkürler.....sizlerden cok seyler ögrenecegiz

saygilar

 

[ozgretmen]

hocam,
sayin ozgretmen, cevaplariniz icin tesekkürler.....sizlerden cok seyler ögrenecegiz
saygilar

Çözüme ulaşmış olmanıza sevindim.iyi çalışmalar...