Bir Çalışma Kitabı Açılırken Koşula bağlı Açılmasını Sağlamak

[Ergün Güler]

Selam,
xx2009.xls dosyası açık iken, xx2010.xls dosyasını açılırken mesajla uyarı vermesini ve seçeneğe göre 2 dosyadan birinin kapatılmasını sağlamak istiyorum.
Yani xx2010.xls açılınca çalışacak kod, benim daha önceden tanıttığım xx2009.xls dosyası o esnada açık halde ise, xx2009.xls dosyası açık" gibi benzeri mesajlar vermesini sağlamak istiyorum.
(Kodlar xx2010.xls dosyasında olacağını düşünürsek) Nasıl yapabilirim?

Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar.

 

[leumruk]

Merhaba,

Private Sub Workbook_Open()
For Each dsy In Workbooks
If dsy.Name = "xx2009.xls" Then
MsgBox dsy.Name & " isimli dosya açık...", vbCritical, "UYARI": Exit Sub
End If
Next
End Sub

 

[Ergün Güler]

Merhaba,

Private Sub Workbook_Open()
For Each dsy In Workbooks
If dsy.Name = "xx2009.xls" Then
MsgBox dsy.Name & " isimli dosya açık...", vbCritical, "UYARI": Exit Sub
End If
Next
End Sub

Selam,
Sayın leumruk Hocam çok teşekkür ederim. Bunun üzerine birkaç soru sorabilir miyim?
Userform kullanmadan, MsgBox'ta şöyle bir özellik aradım bulamadım;
msgbox içinde 2 buton olacak hangisine tıklarsam ilgili dosya kapanacak.
Mesela xx2010 dosyasını açtığımızda, xx2009 dosyası açık ise,
msgbox'ta
"xx2009 dosyası açık. İkisinden birini kapatmanız önerilir.
Hangisini kapatmak istiyorsunuz?" diyecek ve altında 2 adet button olacak. Bu butonlar ile ilgili dosya kapatılacak.

Mümkün müdür?

Yardımcı olabilirseniz çok sevinirim.

 

[leumruk]

Selam,
Sayın leumruk Hocam çok teşekkür ederim. Bunun üzerine birkaç soru sorabilir miyim?
Userform kullanmadan, MsgBox'ta şöyle bir özellik aradım bulamadım;
msgbox içinde 2 buton olacak hangisine tıklarsam ilgili dosya kapanacak.
Mesela xx2010 dosyasını açtığımızda, xx2009 dosyası açık ise,
msgbox'ta
"xx2009 dosyası açık. İkisinden birini kapatmanız önerilir.
Hangisini kapatmak istiyorsunuz?" diyecek ve altında 2 adet button olacak. Bu butonlar ile ilgili dosya kapatılacak.

Mümkün müdür?

Yardımcı olabilirseniz çok sevinirim.

Merhaba,
Msgbox'un vbyesno seçeneğini kullanarak iki buton, vbyesnocancel özelliğini kullanarak 3 butonlu msgbox elde edebilirsiniz. Bu butonlara bahsettiğiniz işlemleri de yaptırabilirsiniz; ancak butonlarda "Evet", "Hayır" yazacaktır. Evet-Hayır iafdeleri yerine istediğimiz bir isim verebiliyor muyuz bilemiyorum.
Örnek:

Sub dene()
Sor = MsgBox("Hangi dosyanın kapanmasını istiyorsunuz?" & _
"Birinci buton xx2010'u; ikinci buton xx2009'u kapatır.", vbYesNo, "SORGU EKRANI")
If Sor = vbYes Then
'---kodlarınız
ElseIf Sor = vbNo Then
'kodlarınız
End If
End Sub