Açık Dosyanın Tekrar Açılmaması

[alpay1]

“Deneme.xls” isimli bir ana dosyam var.Buradan UserForm üzerindeki butonla başka dosyaları açıp işlem yapıp kapatıyorum.Bazen kullanıcı açık olan dosyayı dalgınlıkla açamak isterse hata vermemesi için uyarmasını istiyorum.Ã?rneğin “Kayıtlar” isimli dosyam açıkken tekrar ana dosyamdan “Kayıtlar” adlı dosyayı açmak için tıklarsam “Bu dosya zaten açık” uyarısı yapsın.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyiniz.

[vb:1:27261b63b1]Private Sub CommandButton1_Click()
On Error GoTo 10
Windows("kayıtlar.xls").Activate
MsgBox ("BU DOSYA ZATEN AÇIKTIR")
Exit Sub
10 Workbooks.Open Filename:="C:\Belgelerim\kayıtlar.xls"
End Sub[/vb:1:27261b63b1]

 

[alpay1]

Yardımınız için çok teşekkür ederim.