Sayfa gizleme

[zahitsen]

Arkadaşlar gizli sayfalara gidebiliyorum bu kodla fakat geri geldiğimde o sayfanın geri gizli konuma geçmesini istiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isemri, hata As String
If Intersect(Target, Range("H5:H30")) Is Nothing Then Exit Sub
On Error GoTo hata
If Target = Empty Then Exit Sub
On Error GoTo isemri
Sheets(Target.Text).Visible = True
Sheets(Target.Text).Select
 Exit Sub
isemri: MsgBox Target & " İSİMLİ SAYFA OLUŞTURULMAMIŞ " & vbLf & Application.UserName, _
vbCritical, "DİKKAT"

hata: MsgBox " AYNI ANDA BİRDEN ÇOK SAYFA SEÇEMEZSİNİZ. " & vbLf & Application.UserName, _
vbCritical, "DİKKAT"
End Sub

 

[mancubus]

çıktıktan sonra gizlenecek tüm sayfaların kod modüllerine kopyalayın.

Private Sub Worksheet_Deactivate()
    Me.Visible = xlHidden
End Sub

 

[zahitsen]

sizin dediğinizle olmuyor çünkü sayfalar birbirine bağlı ve sayfadan gittiğimde direk sayfa gizleniyor ve açılan sayfa kalıyor benim istediğim ana tabloya bağlı 1 no lu sayfa var 1 nolu sayfadan da b sayfasına bağlanıyorum ben b den 1 döndügümde b sayfası kapansın...

 

[zahitsen]

If Target = Empty Then Exit Sub
On Error GoTo isemri
Sheets(Target.Text).Visible = True
Sheets(Target.Text).Select
Exit Sub

buraya bir if daha koyup geldiği sayfaya gittiğinde (target.text).visible diyebilirmiyiz acaba