2nci defa açtığım dosya İçin mesaj vermiyor.

[Orion1]

Merhabalar.
Daha önceleri 2nci defa açmaya kalktığım bir dosya olduğunda bu dosya zaten açık tekrar açarsanız eski dosyalardaki yazdığınız veriler kaybolacaktır gibisinden bir mesaj veriyordu.Şimdi ise böyel bir mesaj vermiyor,ve dosya direk açılıyor.Sanırım daha önceden bir değişiklik yaptım bir yetde bilmiyorum.
Tekrar bu duruma nasıl getirbilirim bu 2nci açılma olayını?

 

[Ayhan Ercan]

Evet Sayın Gizlen,

Hem direk açıyor ama aslında arka planda açılmış halide var buna rağmen uyarı vermiyor değilmi?
Bu sorunu bende merak etmiştim. Benden önce siz sormuşsunuz...

 

[Orion1]

Evet Sayın Gizlen,

Hem direk açıyor ama aslında arka planda açılmış halide var buna rağmen uyarı vermiyor değilmi?
Bu sorunu bende merak etmiştim. Benden önce siz sormuşsunuz...

Hayır benimkinde arka palnında açılmış başka dosya yok.Sadece o dosya var.Ve sanıyorsam eskiden açıldsa bile salt okuhur olarak açılıyordu.
Bu işlem aslıda makro yazarkan işe yarıyor.Dosya daha önceden açılmışsa tekrar açıldığında salt okunur durumu konrtrol ediliyor.salt okunur açılmışsa yeni dosya kapatılıyor ve eski dosyada işlem yapmaya devam ediliyor.Ama şimdi benim durumumda bu kontrolu yapamıyorum.

 

[Levent Menteşoğlu]

Eğer açık dosyada herhangi bir değişiklik yapmadıysanız ikinci dosya direk olarak açılır. Bahsettiğiniz uyarı ancak değişiklik durumlarında geçerlidir.

 

[Orion1]

Eğer açık dosyada herhangi bir değişiklik yapmadıysanız ikinci dosya direk olarak açılır. Bahsettiğiniz uyarı ancak değişiklik durumlarında geçerlidir.

Levent bey teşekkür ederim.
Aşağıdaki kodu nerde kullanıyorduk.
Ben 2nci defa açılan dosyalar için kullanıtyorduk diye hatırlıyorum.
'nci defa açılan dosyalar salt okunur ve bu yüzden kapatılı.Bu kodlar onu söylüyor,ama ben 2nci defa bir dosyayı açtığım zaman salt okunur açılmıyor,sizinde dediğiniz gibi bir şey yazoılmmamışsa direk açılıyor,yazılmışsa uyarı veriyor.
O zaman bu kodu nerede kullanıyorduk?

Sub Auto_Open()
If Workbooks.Open("C:\Kitap1.xls").ReadOnly = True Then
    MsgBox "Bu dosya zaten açık"
    ThisWorkbook.Close
End If
End Sub

 

[Levent Menteşoğlu]

Evren bey eğer amacınız açık olan bir dosyayı bir daha açmamak ise aşağıdaki linkteki çözümü kullanmanızı öneririm.

Açık Dosya Hk

 

[Orion1]

Levent bey bu güzel kodlar için teşekkür ederim.

 

[parsley2]

mesaj silindi.