Ortak Kullanılan Dosya

[heft]

Merhaba,
C:\k.xls dosyamın birden fazla kullanıcıda kullanımı var.Aynı anda birden fazla kişi kullanmaya kalktığında sorun yaşıyorum.

Makronun herhangi bir yerinde Workbooks.Open Filename:="C:\k.xls" kullanarak dosyaya bilgi ekleyip kapatıyorum.

Sorum şu,
Eğer A kullanıcısında k.xls dosyası açıksa,B kullanıcısında
Workbooks.Open Filename:="C:\k.xls" komutu çalıştıktan sonra dosyanın kullanımda olduğunu anlasa ve beklemeye geçse,10 saniye bekledikten sonra tekrar denese ve dosyayı açsa yada 10 sn daha beklese ve tekrar denese,....taa ki dosya serbest kalana kadar.

yazarken bile parçalar kafamda birleşmiyor ama üstadlara sormadan da içim rahat etmeyecek,olabilir mi?
Bunun için kod ne olmalı?
Şimdiden teşekkür ederim.

 

[hamitcan]

Dosyanın açık olup olmadığını tespit etmek için aşağıdaki kodları kullanabilirsiniz.

Function IsExcelFileOpen(sFile As String) As Boolean
Dim iHandle As Integer
On Error Resume Next
iHandle = FreeFile
Open sFile For Input Lock Read As #iHandle
If Err.Number = 0 Then
IsExcelFileOpen = False
Else
IsExcelFileOpen = True
If Err.Number <> 70 Then
MsgBox Err.Description
End If
End If
Close iHandle
End Function
Kod:
If IsExcelFileOpen("C:\STOK\URUNLER.XLS") = True Then
MsgBox "İlgili dosya açıktır."
Else
Workbooks.Open Filename:="C:\STOK\URUNLER.XLS"
End If

Kaynak: http://support.microsoft.com/default...b;en-us;213383

 

[heft]

Merhaba
Ok teşekkürler