Gizli Sayfaya Gitmek-Gelmek

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
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.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Module1 deki kodları sil aşağıdakileri kopyala.
Kod:
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
 
Son düzenleme:

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Hata vermiyor. Siz sayfaların kod kısımına active ve deactive prosedüürü eklemiştiniz onları silmeniz gerekiyor.
Dosyanız ekte.
 

Ekli dosyalar

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
Tüm üstadlarıma teşekkür ederim. Sağolun ellerinize sağlık.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Gizli sayfada işlem yapmak için görünür yapmaya gerek yok diye hatırlıyorum.:cool:
 

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Merhaba,

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

Teşekkür ederim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ne menüsü yapacaksınız?:cool:
 

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Tablolar bulunan dosyamda 25 kadar sayfa bulunmakta. Sayfalar arası rahat gezinmek için basit bir menü yapmak istiyorum.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kırmızı ile belirttiğim yere sağ tıklarsanız sayfa lar orada listeleniyor.

Adsız.jpg
 

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Teşekkür ederim.

Menü oluşturup sayfa sekmelerini gizlemek istiyordum.
 

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Üst