Excel Kitapının Açılmasını Önleme

[dogu34]

Herkese İyi Akşamlar
Userform üzerinden exceli gizleyerek çalıştığım bir excel kitapım var.Bu excel kitapım açıkken başka bir excel kitapının açılmasını nasıl önleriz?
Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Dosyanızda ThisWorkbook (BuÇalışmaKitabı) bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_Deactivate()
    If Excel.Windows.Count > 1 Then
        ActiveWorkbook.Close
    End If
End Sub

 

[dogu34]

Merhaba,

Dosyanızda ThisWorkbook (BuÇalışmaKitabı) bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Workbook_Deactivate()
    If Excel.Windows.Count > 1 Then
        ActiveWorkbook.Close
    End If
End Sub

Hocam başka bir kitapa tıklayınca kitap açılmıyor fakat bu seferde benim kitapımın gizli olan çalışma sayfaları gözüküyor

 

[Korhan Ayhan]

Ben kodu boş bir excel dosyasında denedim. Sizin asıl dosyanızdaki durumu bilemiyorum. Ayrıca önerdiğim kodda sayfaları gösterecek bir kod satırı bulunmuyor.

 

[dogu34]

Hocam başka bir kitapa tıklayınca kitap açılmıyor fakat bu seferde benim kitapımın gizli olan çalışma sayfaları gözüküyor

Application.Visible = False
UserForm25.Show (0)
Bu kod ile mevcut kitapın çalışma sayfalarını gizliyorum

 

[Korhan Ayhan]

Sondaki parantezli bölümü silip deneyiniz. (0)

 

[dogu34]

Sondaki parantezli bölümü silip deneyiniz. (0)

Denedim hocam çalışma çalışma kitapına tıklayınca yine çalışma kitapımın sayfaları açılıyor
Userform un showmodel ini false ve true olarakta denedim yine olmadı

 

[Korhan Ayhan]

Birde aşağıdaki kodu deneyiniz.

Option Explicit

Private Sub Workbook_Deactivate()
    Application.Visible = False
    If Excel.Windows.Count > 1 Then
        Application.ScreenUpdating = False
        ActiveWorkbook.Close
        Application.ScreenUpdating = True
    End If
End Sub

 

[dogu34]

Birde aşağıdaki kodu deneyiniz.

Option Explicit

Private Sub Workbook_Deactivate()
    Application.Visible = False
    If Excel.Windows.Count > 1 Then
        Application.ScreenUpdating = False
        ActiveWorkbook.Close
        Application.ScreenUpdating = True
    End If
End Sub

Tamamdır hocam teşekkürler hayırlı sabahlar