Salt Okunur İse Dosya Açılmasın !

[baydeniro]

Merhaba arkadaşlar. Makro kodu veya başka bir düzenleme ile bir dosya başkasında açık iken Salt Okunur durumunda açılmaması mümkün mü ?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

Açık Dosya Hk

 

[baydeniro]

Sayın Levent Menteşoğlu. Linki inceledim. Bu kodları uyguladım. Ancal açık dosyayı "Salt Okunur" olarak açmaya devam ediyor !!

 

[Levent Menteşoğlu]

Bu durumda yanlış uygulamışsınız öyle görünüyor. Yazdığını kodu verirmisiniz.

 

[baydeniro]

Sayın Levent Menteşoğlu. İlginize çok teşekkür ederim. Aşağıdaki kodu kendime uyarlayarak ThisWorkbook altına kopyaladım. Diğer kodu da ayrı bir modüle olarak aynen kopyaladım.

If IsExcelFileOpen("\\Server\ORTAK\Salt Okunur - Dosya Acilmasin.XLS") = True Then
MsgBox "İlgili dosya açıktır."
Else
Workbooks.Open Filename:="\\Server\ORTAK\Salt Okunur - Dosya Acilmasin.XLS"
End If

 

[baydeniro]

Sayın Levent Menteşoğlu, bir hata yaptığımı fark ettim. Modulü Sub ... () olarak açmamışım. Öyle açtım. Ama bu sefer de ekstradan uyarıyor ama dosyayı yine açıyor.

 

[janveljan]

Ben de denedim ama bende dosyayı tekrar açmadı, siz daha önce yazdığınız kodların bir yerinde tekrar açıyor olmayasınız.

 

[baydeniro]

Sayın janvaljan. Siz de network ortamında farklı bilgisayarlardan denediniz değil mi ?

 

[janveljan]

Hayır ben aynı bilgisayarda denedim. Aynı şey değil ama belki bu kodlarda işinizi görür.

If ActiveWorkbook.ReadOnly Then ActiveWorkbook.Close

siz uygun şekilde düzenlersiniz.

 

[baydeniro]

Sayın janveljan. kodu şöyle yaptım yine dosyayı açtı.

If IsExcelFileOpen("\\Server\ORTAK\Salt Okunur - Dosya Acilmasin.xls") = True Then
MsgBox "İlgili dosya açıktır."
Else
If ActiveWorkbook.ReadOnly Then ActiveWorkbook.Close
End If

 

[janveljan]

If Workbooks("Salt Okunur - Dosya Acilmasin.xls").ReadOnly Then Workbooks("Salt Okunur - Dosya Acilmasin.xls").ReadOnly .Close

şeklinde deneyin.

 

[Levent Menteşoğlu]

Sayın Levent Menteşoğlu, bir hata yaptığımı fark ettim. Modulü Sub ... () olarak açmamışım. Öyle açtım. Ama bu sefer de ekstradan uyarıyor ama dosyayı yine açıyor.

Dosya açma olarak sadece aşağıdaki gibi kullanın. Ben network üzerinde de kullanıyorum bir sorun sözkonusu değil.

sub dosyaac()
If IsExcelFileOpen("\\Server\ORTAK\Salt Okunur - Dosya Acilmasin.XLS") = True Then
MsgBox "İlgili dosya açıktır."
Else
Workbooks.Open Filename:="\\Server\ORTAK\Salt Okunur - Dosya Acilmasin.XLS"
End If
end sub

 

[baydeniro]

Sayın Levent Menteşoğlu ve sayın janveljan ilginize ve sabrınıza çok teşekkür ederim. Herhalde bizim network'te bir durum var. Her yolu denedim network ortamında açık olan bir excel dosyasını başka bir makinada Salt Okunur olarak açıyor. İLeride bir zaman tekrar bu konuda araştırma yaparım. Şimdilik hoşçakalın.