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ı
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
If ActiveWorkbook.ReadOnly Then 
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
ActiveWorkbook.Close
End If

Yine Workbook_Open olayına eklenecek
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ş yazdı: Kusura bakmayın soruyu yanlış yorumlamışım kodu aşağıdaki gibi değiştirir misiniz
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
Task