Gizli Sayfaya Gitmek-Gelmek

[Ahmet Sami]

Merhaba arkadaşlar aşağıdaki örnekte belirttiğim gibi ANASAYFA ve Kod ile gizlenmiş sayfalarım var. ANASAYFA ekranında bulunan butonlara tıklayınca gizli olan sayfaya gitsin orada işlem yapabileyim işim bittikten sonra tekrar ANASAYFA'ya dönebileyim. Ayrıldığım sayfa otomatik olarak yine gizlensin.
Mesela: ANASAYFA'dan İZİN sayfasına gittiğim zaman İZİN sayfası açılsın ANASAYFA gizlensin İZİN sayfasında işlem yaptıktan sonra tekrar ANASAYFA'ya gidince İZİN sayfası gizlensin istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

 

[Mehmet Sait]

Deneyiniz.

Merhaba Hocam,

İlgili sayfaya gitmek istediğimizde şifre sordurmak ve çıkışta şifrelenmesi mümkün mü ?

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun. Şifre = 123
Dosyanız ekte.

 

[Mehmet Sait]

Merhaba.
Alternatif olsun. Şifre = 123
Dosyanız ekte.

Merhaba Hocam,

Anasayfa sağ tıklanıp göster ile dosya seçilince açıyor. Açılmaması için ne yapılmalı ?

Teşekkür ederim

 

[Muzaffer Ali]

Module1 deki kodları sil aşağıdakileri kopyala.

Const Sifre As String = "123"
Sub nöbetanasayfayagit()
    Sheets("ANASAYFA").Visible = xlSheetVisible
    ActiveSheet.Visible = xlSheetVeryHidden
End Sub
Sub nöbetegit()
    SayfaGizle_Goster ("NÖBET")
End Sub
Sub izinegit()
    SayfaGizle_Goster ("İZİN")
End Sub
Sub raporagit()
    SayfaGizle_Goster ("RAPOR")
End Sub
Sub istirahatagit()
    SayfaGizle_Goster ("İSTİRAHAT")
End Sub

Sub SayfaGizle_Goster(SayfaAdi As String)
    If InputBox("Lütfen şifre giriniz.") <> Sifre Then
        MsgBox "Şifre yanlış. Lütfen tekrar deneyiniz."
        Exit Sub
    End If
    With Sheets(SayfaAdi)
        If .Visible <> xlSheetVeryHidden Then
           .Visible = xlSheetVeryHidden
        Else
            .Visible = xlSheetVisible
        End If
        .Activate
        .Range("A1").Select
    End With
    Sheets("ANASAYFA").Visible = xlSheetVeryHidden
End Sub

 

[Mehmet Sait]

Module1 deki kodları sil aşağıdakileri kopyala.

End Sub[/CODE]

Hocam,

Burada hata veriyor End With Sheets("ANASAYFA").Visible = xlSheetVeryHidden End Sub

 

[Muzaffer Ali]

Hata vermiyor. Siz sayfaların kod kısımına active ve deactive prosedüürü eklemiştiniz onları silmeniz gerekiyor.
Dosyanız ekte.

 

[Mehmet Sait]

Teşekkür ederim

 

[Ahmet Sami]

Tüm üstadlarıma teşekkür ederim. Sağolun ellerinize sağlık.

 

[Orion1]

Gizli sayfada işlem yapmak için görünür yapmaya gerek yok diye hatırlıyorum.

 

[Mehmet Sait]

Merhaba,

Sayfa gizle göster yapmadan, menü olarak kullanmak istiyorum. Butonlara sayfa adresini nasıl verebilirim ?

Teşekkür ederim

 

[Orion1]

Merhaba,

Sayfa gizle göster yapmadan, menü olarak kullanmak istiyorum. Butonlara sayfa adresini nasıl verebilirim ?

Teşekkür ederim

Örnek dosya ekleyiniz.

 

[Mehmet Sait]

Örnek dosya ekleyiniz.

Merhaba hocam,

Buton ile menü yapmak istiyorum. Örnek ektedir.

Teşekkür ederim.

 

[Orion1]

Ne menüsü yapacaksınız?

 

[Mehmet Sait]

Tablolar bulunan dosyamda 25 kadar sayfa bulunmakta. Sayfalar arası rahat gezinmek için basit bir menü yapmak istiyorum.

 

[Orion1]

Kırmızı ile belirttiğim yere sağ tıklarsanız sayfa lar orada listeleniyor.

 

[Mehmet Sait]

Teşekkür ederim.

Menü oluşturup sayfa sekmelerini gizlemek istiyordum.

 

[Korhan Ayhan]

Yıllar önce benzer bir konuya cevap vermiştim. Belki işinize yarayabilir.

Ribbon menüde eklentiler bölümü içinde yeni menü oluşmaktadır.

https://www.excel.web.tr/threads/sayfa-degistirme-menuesue-olusturmak-istiyorum.52529/post-285534

 

[Mehmet Sait]

Yıllar önce benzer bir konuya cevap vermiştim. Belki işinize yarayabilir.

Ribbon menüde eklentiler bölümü içinde yeni menü oluşmaktadır.

https://www.excel.web.tr/threads/sayfa-degistirme-menuesue-olusturmak-istiyorum.52529/post-285534

Hocam,

Verdiğiniz örnek çok güzel. bende şu şekilde basit bi menü oluşturdum.
Sub raporgit() Sheets("Rapor").Select End Sub