Sayfadan Çıkınca Sayfayı Gizle

[baydeniro]

Merhaba Arkadaşlar,
Sayfa modülüne aşağıdaki gibi bir kod yazıp, herhangi bir sayfadan çıkınca otomatik gizlenmesi nasıl sağlanır.
Sayfa adını koda yazmadan, "ActiveSheet" formunda genel bir tanımlama mümkün mü ?

Private Sub Worksheet_Deactivate()
Sheets("ActiveSheet").Visible = False
End Sub

 

[52779]

https://www.dosyaupload.com/78v7

Selam,
Workbook da A ve B isimli 2 sayfa olsun
VBA kod sayfasına baktığınızda Sayfa1 (A) ve Sayfa2 (B) şeklinde görürsünüz.
B sayfasından çıktığınızda Gizlenmesini isterseniz.

Private Sub Worksheet_Deactivate()
Sayfa2.Visible = xlSheetHidden
End Sub

şeklinde yazabilirsiniz.

Ekteki dosyada ise, xlSheetVeryHidden ile yapılmış bir örnek var. Sonuçta böyle bir şeye varmak isteyeceğinizi düşündüğümden ekledim. İncelersiniz.

 

[baydeniro]

https://www.dosyaupload.com/78v7

Selam,
Workbook da A ve B isimli 2 sayfa olsun
VBA kod sayfasına baktığınızda Sayfa1 (A) ve Sayfa2 (B) şeklinde görürsünüz.
B sayfasından çıktığınızda Gizlenmesini isterseniz.

Private Sub Worksheet_Deactivate()
Sayfa2.Visible = xlSheetHidden
End Sub

şeklinde yazabilirsiniz.

Ekteki dosyada ise, xlSheetVeryHidden ile yapılmış bir örnek var. Sonuçta böyle bir şeye varmak isteyeceğinizi düşündüğümden ekledim. İncelersiniz.

52779 ilgine çok teşekkür ederim. Sorun şu ki, sayfa üreten bir kod var ve sayfa isimleri / numaraları belirsiz bir şekilde değişiyor. Bu yüzden koda sayfayı tanımlayıcı bir ibare yazmak verimli olmuyor. "ActiveSheet" iyi bir çözüm ama doğru çalışmıyor. Sayfadan çıkınca çıkılan sayfayı değil, gidilen sayfayı kapatıyor.

 

[baydeniro]

https://www.dosyaupload.com/78v7

Selam,
Workbook da A ve B isimli 2 sayfa olsun
VBA kod sayfasına baktığınızda Sayfa1 (A) ve Sayfa2 (B) şeklinde görürsünüz.
B sayfasından çıktığınızda Gizlenmesini isterseniz.

Private Sub Worksheet_Deactivate()
Sayfa2.Visible = xlSheetHidden
End Sub

şeklinde yazabilirsiniz.

Ekteki dosyada ise, xlSheetVeryHidden ile yapılmış bir örnek var. Sonuçta böyle bir şeye varmak isteyeceğinizi düşündüğümden ekledim. İncelersiniz.

Bu arada dosyayı inceledim. Harika bir çalışma olmuş, eline sağlık. Bu dosyayı bir şekilde kullanırım. Ancak "ActiveSheet" yerine hangi kod kullanılmalı bunu araştırıyorum. Çok teşekkürler.

 

[EmrExcel16]

Merhaba ,

ThisWorkbook ( BuÇalışmaKitabı ) bölümüne yapıştırıp deneyiniz..

Private Sub Workbook_SheetDeactivate(ByVal Sayf As Object)
    Sheets(Sayf.Name).Visible = False
End Sub

 

[baydeniro]

Merhaba ,

ThisWorkbook ( BuÇalışmaKitabı ) bölümüne yapıştırıp deneyiniz..

Private Sub Workbook_SheetDeactivate(ByVal Sayf As Object)
    Sheets(Sayf.Name).Visible = False
End Sub

EmrExcel16 üstadım çok teşekkürler. Bu kod mükemmel. Elinize sağlık.
İstisna olabilecek sayfalar belirlenmesi mümkün mü ?

 

[EmrExcel16]

Bu şekilde deneyiniz..

Private Sub Workbook_SheetDeactivate(ByVal Sayf As Object)
    If Sayf.Name <> "Sayfa1" Then
        Sheets(Sayf.Name).Visible = False
    End If
End Sub

 

[baydeniro]

Bu şekilde deneyiniz..

Private Sub Workbook_SheetDeactivate(ByVal Sayf As Object)
    If Sayf.Name <> "Sayfa1" Then
        Sheets(Sayf.Name).Visible = False
    End If
End Sub

Çok teşekkür ederim Üstad, sağlıcakla kalın

 

[EmrExcel16]

Çok teşekkür ederim Üstad, sağlıcakla kalın

Rica ederim , iyi çalışmalar .