Açık kitap kontrolü.

[s.savas]

Merhaba arkadaşlar.
Açık olan excel çalışma kitabı kapatılmadan, yeni bir excel kitabı açılmasını engelleyebilirmiyiz.

 

[mancubus]

ThisWorkbook kod modülüne.
(Tabii makrolar engellenir ise işe yaramaz.)

Private Sub Workbook_Open()

Dim ksay As Long
ksay = Workbooks.Count
If ksay > 1 Then ThisWorkbook.Close

End Sub

 

[mancubus]

tabii şöyle daha uygun olabilir.

Private Sub Workbook_Open()

Dim ksay As Long

ksay = Workbooks.Count
If ksay > 1 Then 
     Msgbox "Aynı anda sadece 1 dosya açık olabilir."
     ThisWorkbook.Close
End If

End Sub

 

[s.savas]

Üstat teşekkür ederim.

Makro aşağıdaki durumlarda sorunsuz çalışıyor.
Her iki sayfada da bu makro kayıtlı ise ikinci sayfa açılamıyor.
Makrosuz sayfadan sonra makrolu sayfa açılmak istenirse açılamıyor.

Sadece şu durumda yetersiz kalıyor.
Bu makronun kayıtlı olduğu bir belge açıldıktan sonra, aynı makronun kayıtlı olmadığı farklı bir sayfa daha açılmak istenirse, her iki sayfa da açılabiliyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu dosyanızın ThisWorkbook bölümüne uygulayın.

Option Explicit
 
Private Sub Workbook_Activate()
    Dim X As Byte
    
    For X = 1 To Excel.Application.Windows.Count
        If Workbooks(X).Name <> ThisWorkbook.Name Then
            Workbooks(X).Close False
        End If
    Next
End Sub
 
Private Sub Workbook_Deactivate()
    Dim X As Byte
    
    For X = 1 To Excel.Application.Windows.Count
        If Workbooks(X).Name <> ThisWorkbook.Name Then
            Workbooks(X).Close False
        End If
    Next
End Sub

 

[mancubus]

üstad farkı bakın yukarıda.




ancak 2. bir "session" açıldığı takdirde bu da aşılabiliyor.

 

[s.savas]

Selamlar,

Aşağıdaki kodu dosyanızın ThisWorkbook bölümüne uygulayın.

Option Explicit
 
Private Sub Workbook_Activate()
    Dim X As Byte
    
    For X = 1 To Excel.Application.Windows.Count
        If Workbooks(X).Name <> ThisWorkbook.Name Then
            Workbooks(X).Close False
        End If
    Next
End Sub
 
Private Sub Workbook_Deactivate()
    Dim X As Byte
    
    For X = 1 To Excel.Application.Windows.Count
        If Workbooks(X).Name <> ThisWorkbook.Name Then
            Workbooks(X).Close False
        End If
    Next
End Sub

Korhan hocam teşekkürler. Sorunsuz işlev görüyor.