Dim ktap As Workbook
For Each ktap In Workbooks
If ktap.ReadOnly Then
MsgBox "Bu dosya zaten kullanýmda. Sonra tekrar deneyin."
If Workbooks.Count = 1 Then Application.Quit Else ktap.Close
End If
Next
Set ktap = Nothing
Berduş Hocamın kodu
Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly Then
MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."
'Workbooks.Count açık Excel dosyasının sayısını verir eğer 1 tane ise programı daha fazla ise sadece kitabı kapatır
If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close
End If
End Sub
Feraz Hocamın For Each ktap In Workbooks kod satırı hata veriyor.
Berduş hocamın eklediği Access Excel bağlantısını ofis 2010 da yapamadım.
Kodların ikisinide BuÇalışmaKitabı olayına eklediğim zaman salt okunur olarak kitabı açmama izin veriyor.