Başka kullanıcıda açıksa uyarsın

[heft]

Mehaba ,
C:\den\A.xls dosyam var
A (yada başka bir kullanıcı) kullanıcısı A.xls yi kullanırken B kullanıcısı açmaya çalışırsa
"Dosya açılamaz" diye bir uyarı vermesini istiyorum.
Eğer A.xls hiç kimsede açık değil ise mesajsız direkt olarak açmasını istiyorum.

Yardımlara şimdiden teşekkür etmek isterim

 

[Haluk]

Sub FileOpened()
    Dim MyFile As String
    MyFile = "C:\den\A.xls"
    On Error GoTo FileInUse
    Open MyFile For Binary Access Read Lock Read As #1
    Close #1
    MsgBox "Dosya daha önceden kullanımda değil, açabilirsiniz !"
    Workbooks.Open MyFile
    Exit Sub
FileInUse:
    MsgBox "Dosya şu anda başkası tarafından kullanılmakta !"
End Sub

 

[heft]

Teşekkürler syn Haluk,
dosyada
Private Sub Workbook_Open()
UserForm1.Show
End Sub

var
sizin belirttiğiniz kodu nereye yazmalıyım ?

 

[heft]

tekrar hatırlatayım dedim

 

[ilhan1900]

selam eğer dosya açıksa tekrar açmasın, kapalıysa açsın
workbook_open() fonksiyonun içine nasıl kontrol edip yazabilirim

 

[hsayar]

Sub FileOpened()
    Dim MyFile As String
    MyFile = "C:\den\A.xls"
    On Error GoTo FileInUse
    Open MyFile For Binary Access Read Lock Read As #1
    Close #1
    MsgBox "Dosya daha önceden kullanımda değil, açabilirsiniz !"
    Workbooks.Open MyFile
    Exit Sub
FileInUse:
    MsgBox "Dosya şu anda başkası tarafından kullanılmakta !"
End Sub

hocam bu kodu eklenti olarak yapıp
Myfile değişkenini
1) Excel Dosya Aç menüsünden dosya seçildiğinde
2) Excel Dosya Son açılmış kitaplar(1 den 9 kadar)dan dosya seçildi
3) İşletim Sistemi klasörlerinden dosyaya erişilmeye çalışıldığında
4) İşletim sisteminde dosyanın bir kısayoluna tıklandığında
5) İşletim Sistemininde ağ sürücüsü varsa adına tıklandığında

seçilen dosyaya eşitleyip kontrolü sağlamak nasıldır?

 

[baydeniro]

Paylaşım İçin Teşekkürler

Paylaşım için teşekkürler.