Gizli sayfaya köprü kurma

[ziko068]

Selam arkadaşlar.Excell kitabında gizli sayfaya köprü oluşturmak mümkünmü?

 

[bzace]

Merhabalar,
Bir Abimizin verdiği cevaptır.
Önce köprü oluşturacağınız gizli olmayan sayfanın kod bölümüne;

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fty As String, Ftr As String
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
Fty = Target.SubAddress
Ftr = Replace$(Mid$(Fty, 1, InStr(Fty, "!") - 1), "'", "")
Sheets(Ftr).Visible = -1: Target.Follow
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

yazıp, daha sonra ilgili sayfalara köprü işlemini tamamlayınız. Köprü kurduğunuz sayfaları gizleyip gerekli bağlantılara tıklayarak sonucu gözlemleyiniz.

Uitser Madina

 

[uselka]

harikasınız. %100 çalışıyor.

 

[skaan]

Merhaba;

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fty As String, Ftr As String
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Fty = Target.SubAddress
Ftr = Replace$(Mid$(Fty, 1, InStr(Fty, "!") - 1), "'", "")
Sheets(Ftr).Visible = -1: Target.Follow
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Yukarıdaki kodlar ile gizlenen sayfadaki veriye sayfanın gizlilik ozelliğini kaldırarark ulasabılıyoruz.
Acaba tekrar eski sayfaya donunce sayfanın gizlenmesini sağlayabilirmiyiz.?

Yardımcı olursanız sevinirim.
Saygılar
SKaan

 

[skaan]

Merhaba yardımcı olabilecekmisiniz acaba ?

Saygılar
SKaan

 

[yasanabilir@gmail.com]

2 GÜNDÜR NE YAPSAM

Merhabalar,
Bir Abimizin verdiği cevaptır.
Önce köprü oluşturacağınız gizli olmayan sayfanın kod bölümüne;

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Fty As String, Ftr As String
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
Fty = Target.SubAddress
Ftr = Replace$(Mid$(Fty, 1, InStr(Fty, "!") - 1), "'", "")
Sheets(Ftr).Visible = -1: Target.Follow
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub

yazıp, daha sonra ilgili sayfalara köprü işlemini tamamlayınız. Köprü kurduğunuz sayfaları gizleyip gerekli bağlantılara tıklayarak sonucu gözlemleyiniz.

Uitser Madina

2 gündür ne yapsam sorunu çözemedim diğer kodlar işime yaramadı bu kod ile sorun çözüldü çok teşekkür ederim...

 

[Endless033]

bir türlü yapamadım gizle diyince sayfaya gitmiyor

 

[huseyinkaratut]

arkadaşlar merhaba bu kod ile gizli sekmeyi köprü yöntemi ile açabiliyoruz ama veri girişinden sonra tekrar gizlenmesi için ne yapabiliriz