Skip to main content

AccessTr.neT


Salt Okunur Açmayı Engellemek.

Salt Okunur Açmayı Engellemek.

Çözüldü #1
Merhaba Arkadaşlar geçmiş bayramınız kutlu olsun. 

Arkadaşlar Excel dosyam makro kodları içerdiği için ağda paylaşamiyorum. Ancak ayrı bilgisayarlarda değişik elamanlar ayni dosyayı kullanıyorlar. Biri kapatarak diğeri açarak şeklinde. Bazen bir elaman da dosya açık olduğu halde başka bir elaman fakına varmadan salt okunur olarak açarak veri girişi yapıyor. Haliyle Dosya salt okunu olduğu için veriler kayıt edilmemiş oluyor.

Benim istediğim bir elaman da dosya açık olduğu zaman ikinci bir bilgisayarda açılmak istendiğinde salt okunur uyarısını verdikten sonra eveti  tıklasam da dosya kapansın hiç bir şekilde salt okunur olarak açılmasın.  Bunun için nasıl bir kod eklemem gerekiyor.
Cevapla
#2
aşağıdaki kodu dener misiniz? ağ olmadığı için deneme imkanım olmadı

Visual Basic Code
Private Sub Workbook_Open()
'   dosyayi aç
    ExcelAcik = ThisWorkbook.FullName
    Set ExcelKitabi = Workbooks.Open(ExcelAcik)

'   salt okunur mu?
    If ExcelKitabi.ReadOnly Then
        ActiveWorkbook.Close
        MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
        Exit Sub
    End If
End Sub

Cevapla
#3
Çok teşekkürler Hocam ellerinize sağlık.

Hocam yarın iş  yerinde deneme yapıp dönüş yapacam.
Cevapla
#4
Kusura bakmayın soruyu yanlış yorumlamışım kodu aşağıdaki gibi değiştirir misiniz

Visual Basic Code
If ActiveWorkbook.ReadOnly Then 
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
ActiveWorkbook.Close 
End If


Yine Workbook_Open olayına eklenecek
Son Düzenleme: 27/05/2020, 17:30, Düzenleyen: berduş.
Cevapla
#5
Rica ederim hocam şu anda iş yerinde olmadığım için dememe imkanım yor. Yarın dönüş yapacam. 
Yukarıdaki kodu If bölümünden itibaren değiştirecem.
Cevapla
#6
(27/05/2020 17:29)berduş Adlı Kullanıcıdan Alıntı: Kusura bakmayın soruyu yanlış yorumlamışım kodu aşağıdaki gibi değiştirir misiniz

Visual Basic Code
If ActiveWorkbook.ReadOnly Then 
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
ActiveWorkbook.Close 
End If


Yine Workbook_Open olayına eklenecek
kodun tamamı bu. workbookOpen olayına yazılacak az önce denedim, ağ olmadığı için Access dosyasına bağladığım bir Excel dosyasına ekledim. Access bağlı talo açıkken ssatokunur modunda açıldığı için uyarı verip kapandı.
tek sıkıntısı var Excel kitabını kapatıyor ama Excel programı açık kalıyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da