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
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