Açık Excel Dosya Tanıma

[meslek5]

Kullandığım iki adet excel dosyası var.
1. dosyanın adı: "GİRİŞLER.xlsb"
2. dosyanın adı: "GÖNDERİ.xlsb"

Aşağıdaki kod sayesinde GÖNDERİ.xlsb adlı dosyayı açmak istediğimde eğer o an açık olan herhangi bir excel var ise geri kapanıyor. Sadece GİRİŞLER.xlsb dosyası bu koşuldan muaf tutuluyor. Buraya kadar sorun yok.

Fakat, bilgisayarın klasör seçeneklerindeki dosya uzantıları görünür olduğunda GİRİŞLER.xlsb yi yukardaki koşuldan muaf tutamıyor ama dosya uzantıları gizli olduğunda sorun yok. Aşağıdaki kodda koyu renkle belirttiğim kısmı sonradan ekledim ama yinede olmadı. Sorunun çözümü için yardımcı olacaklara şimdiden teşekkür ederim.

Not: Aşağıdaki kod GÖNDERİ.xlsb adlı dosyada yer almaktadır.

Sub auto_open()
On Error GoTo ERR
For e = 1 To Workbooks.Count
If Workbooks(e).Name = Workbooks("GİRİŞLER").Name Or Workbooks("GİRİŞLER.xlsb").Name Then
Exit Sub
End If
Next
ERR:
If Workbooks.Count > 1 Then
MsgBox "LÜTFEN AÇIK OLAN DİĞER EXCELİ KAPATINIZ", vbExclamation, "HATA"
ThisWorkbook.Close False
Exit Sub
End If
End Sub

 

[Muzaffer Ali]

Merhaba.
İstediğiniz şeyi doğru anladıysam bu kodlar işinizi görmez aşağıdaki kodu deneyiniz.
Klasör seçeneklerindeki dosya uzantıları görünür-gizli olmasının kodları etkileyen bir tarafı yok.

Sub auto_open()
    Dim wb As Workbook
    For Each wb In Workbooks
        If Not wb.Name = "GİRİŞLER.xlsb" And Not wb.Name = ThisWorkbook.Name Then
            MsgBox "LÜTFEN AÇIK OLAN DİĞER EXCELİ KAPATINIZ", vbExclamation, "HATA"
            ThisWorkbook.Close False
        End If
    Next
End Sub

 

[meslek5]

Çok teşekkür ederim