Otomatik sayfa gizleme

[besen]

Merhaba sayfaların View Code kısmına aşağıdaki kodu yazıyorum, sayfadan çıkınca otomatik gizleniyor.
Ancak dosyada başka makrolar var ve şifreli.
Bazen View Code kısmındaki bu kodu silmek veya tırnak içine alarak durdurmak gerekiyor ancak makrodaki şifreyi bilmemesi gereken kişi için bu imkansız oluyor.
Sadece sayfalardaki bu kodu şifre dışında bırakmak veya başka bir çözümü var mı?
Teşekkür ederim.

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

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu bir butona, yada bir kısayola ekleyin. Kullanıcı sayfayı istediğinde aktif eder.

worksheets("SayfaAdı").visible=true

 

[besen]

Merhaba.
Aşağıdaki kodu bir butona, yada bir kısayola ekleyin. Kullanıcı sayfayı istediğinde aktif eder.

worksheets("SayfaAdı").visible=true

Bu örnek üzerinde uygular mısınız. Mesela Referans sayfasında otomatik gizleme kodları var.
Şifre olduğu için gözükmüyor. Şifre a.
Hatırlatma: Şifreyi girmeden bu sayfanın istenildiği zaman devamlı açık kalmasını, işi bittiğinde tekrar otomatik gizlenir hale gelmesini istiyorum.
İlginiz için teşekkür ederim.

 

[Muzaffer Ali]

CTRL+g ile yada butona tıklayarak sayfayı gösterebilirsiniz.

 

[besen]

CTRL+g ile yada butona tıklayarak sayfayı gösterebilirsiniz.

Merhaba emeğiniz için teşekkür ederim ancak sorun sayfanın gözükmemesi değil ki. Çıkıp, tekrar girilince sayfa zaten görülüyor, benim istediğim, sayfanın açık kalması. Bunu yapabilmem için passworde takılmadan, bu kodu geçici olarak pasife alabilmek.
Private Sub Worksheet_Deactivate()
Me.Visible = xlHidden
End Sub

 

[Muzaffer Ali]

Ben sorunuzu anlamadım.

 

[Muzaffer Ali]

Sayfada bulunan bu kod sayfa deaktif olduğunda çalışıp sayfayı gizliyor.

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

1- Gizleme işlemini manuel yapın.
Sayfaya bir buton ekleyip dilediğinizde butona tıklatıp gizleyin.

2- Sayfa deaktif olduğunda 1 dakika sonra otomatik gizlensin.

3- Sayfa gizliyken göstermek için hangi yöntemi kullanıyorsunuz? Aynı yöntemle gizlensin.

 

[besen]

Sayfada bulunan bu kod sayfa deaktif olduğunda çalışıp sayfayı gizliyor.

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

1- Gizleme işlemini manuel yapın.
Sayfaya bir buton ekleyip dilediğinizde butona tıklatıp gizleyin.

2- Sayfa deaktif olduğunda 1 dakika sonra otomatik gizlensin.

3- Sayfa gizliyken göstermek için hangi yöntemi kullanıyorsunuz? Aynı yöntemle gizlensin.

Evet bu da bir çözüm, bunu yukarıdaki örnek dosyada uygular mısınız.
Bunu her sayfada birbirinden bağımsız yapabiliyor muyuz.
1 dakika nasıl belirlenecek.

 

[ÖmerBey]

Merhaba,
Alternatif olarak ekteki gibi yapılabilir sanıyorum.
Dosyanın kodlarını inceler misiniz?

 

[besen]

Merhaba,
Alternatif olarak ekteki gibi yapılabilir sanıyorum.
Dosyanın kodlarını inceler misiniz?

Örnek olsun diye 2 sayfa daha yarattım.
Menü sayfası hep açık kalacak, ondaki kodu sildim.
Bir de tüm sayfaların açılması için mevcut bir makro ekledim.
Ancak sayfalar girip çıkınca, yine kapanıyor. Bir de eklenen butona basıldığında sayfanın aktif ya da pasif olduğunu kullanıcı nasıl anlayacak?
Teşekkür ederim.

 

[ÖmerBey]

Menü sayfası hep açık kalacak, ondaki kodu sildim.

Asıl menü sayfasındaki kod gizlemenin aktif veya pasif olmasını sağlıyor.
Menü sayfasındaki kod ve buton sabit kalsın, istediğiniz kadar sayfa ekleyin. Eklediğiniz sayfalara referans sayfasının deactive kodunu kopyalayınız.

 

[besen]

Asıl menü sayfasındaki kod gizlemenin aktif veya pasif olmasını sağlıyor.
Menü sayfasındaki kod ve buton sabit kalsın, istediğiniz kadar sayfa ekleyin. Eklediğiniz sayfalara referans sayfasının deactive kodunu kopyalayınız.

Ömer hocam olmuyor bir türlü.
Menü sayfasına yazınca o da gizleniyor.

 

[ÖmerBey]

Bilgisayarda değilim, eklediğiniz resme göre yazıyorum.
Benim eklediğim dosyada menü sayfasında Worksheet_Deactivate kodu olmaması gerekiyor, Commanbutton1_Click kodunun içinde de bir satır kod vardı.

 

[Muzaffer Ali]

Referans ve bb sayfaları 5 saniye sonra gizlenecek şekilde ayarladım siz isterseniz zamanı

Application.OnTime Now + TimeValue("00:00:05"), "Sheet1.SayfalariGizle"

satırından değiştirebilirsinisz.
Yeni bir sayfayı daha dahil etmek isterseniz Referans sayfasının kod kısmında bulunan kodları yeni sayfanın kod saufasına kopyalyın ve kodun Sheet1.SayfalariGizle kısmındaki sayfa adını değiştirin.
Not: Buradaki sayfa adı normal sayfa adı değildir, kod kısmındaki sayfa adıdır.

 

[besen]

Muzaffer Bey açıkçası bir süre koyarak yapmak pek istediğimiz bir şey değil. Onlarca sayfa var, kim hangi sayfada ne kadar süre işlem yapacak bilemeyiz ki.
Yine de her şey için teşekkür ederim.

 

[ÖmerBey]

Eki deneyiniz.

 

[besen]

Eki deneyiniz.

Evet bu tamamdır hocam, çok teşekkür ederim, elinize, emeğinize, beyninize sağlık.
Çok makbule geçti, borçluyum size.

 

[ÖmerBey]

Estağfurullah, hiç borcunuz yok, teşekkürünüz kafi.
Ben de size rica eder, iyi çalışmalar dilerim.

 

[besen]

Estağfurullah, hiç borcunuz yok, teşekkürünüz kafi.
Ben de size rica eder, iyi çalışmalar dilerim.

Tanışma şansı verirseniz.