açık dosya kontrol-uyarı

[tricky2]

merhaba arkadaşlar;
"D:/" de bulunan "hesap" adlı excelin bu exceli açtığımda "giriş" adlı excelin açık olup olmadığını kontrol etmesini ve açıksa "dosya açıktır" diye uyarı vermesini istiyorum. Bunu nasıl yapabilirim acaba?
Yardımlarınız için şimdiden çok teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
On Error GoTo ERR
For I = 1 To Workbooks.Count
If Workbooks(I).Name = Workbooks("giriş").Name Then
MsgBox "Kitap zaten açık"
End If
Next
ERR:
Workbooks.Open Filename:="D:\giriş.xls"
End Sub

 

[tricky2]

yardımlarınız için teşekürler. peki şu şekilde nasıl olur dosya kapalıysa "dosya kapalıdır" diye bir uyarı daha versin ve dosyayı açmasın. Ayrıca bunları hesap excelini açtığımda otomatik yapsın.
tekrar teşekkür ediyorum.
Bu konuda pek bilgim yok kodları inceleneyerek kendimi geliştirmeye çalışıyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Workbook_Open()
On Error GoTo ERR
For I = 1 To Workbooks.Count
If Workbooks(I).Name = Workbooks("giriş").Name Then
MsgBox "Kitap Açık"
Exit Sub
End If
Next
ERR:
If MsgBox("Kitabı açmak istiyormusunuz.", vbYesNo) = vbNo Then: Exit Sub
Workbooks.Open Filename:="D:\giriş.xls"
End Sub

 

[tricky2]

yardımlarınız için teşekkür ederim..

 

[N.Ziya Hiçdurmaz]

Yanıt

Bişey değil

 

[mehmetyildizz]

Farklı bir yöntem

Sub DosyaAcik()

Dim EDosya As Workbook

    On Error Resume Next
    Set EDosya = Workbooks("Takip.xls")

        If EDosya Is Nothing Then 'Dosya Kapali

            MsgBox "Excel Dosyası KAPALI", _
            vbCritical, "Başlık"
            Set EDosya = Nothing
            On Error GoTo 0

        Else 'Dosya Acik

            MsgBox "Excel Dosyası AÇIK", _
            vbInformation, "Başlık"
            Set EDosya = Nothing
            On Error GoTo 0

        End If

End Sub