dosya açıksa koşulu ekleme

[acar6783]

merhaba arkadaşlar daha önce açmış olduğum konunun bir çözümü olmadığına kanaat getirmiş gibiyim.
faklı bir çözüm düşüncesi ile;

Dosyama bir koşul ekleyip hedef dosyanın açık olmadığını sorgulamak istiyorum.

if dosya_açıksa then
....
elseif dosya kapalıysa then
....

.ReadOnly = True Then

Benzeri kodları uygulamaya çalıştım ama olmadı.
Dosya uzak masaüstünden (ağdan) da açılmış olabilir..

 

[Murat OSMA]

Bkz: http://www.excel.web.tr/f48/acyk-dosya-kontrol-uyary-t47742.html​

 

[acar6783]

Bkz: http://www.excel.web.tr/f48/acyk-dosya-kontrol-uyary-t47742.html​

Murat bey o konuyu incelenmiştim.
Ve kodları kısmen b durum kontrolune gore uyarladim fakat ağda deneme şansım olmadı deneyip yazacağım.

[CODE]
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[CODE]