Çözüldü Range sınıfının Hidden özelliği kurulamıyor hatası

[klop01]

Arkadaşlar,
Ekteki orijinal basketbol istatistik çalışmasında aşağıdaki hatayı alıyorum.
AÇIKLAMALAR
1. Hata "VERİ GİRİŞİ" veya "AÇIKLAMALAR" sayfalarına gidip "ANA SAYFA"ya döndüğümde alınıyor.
2. Hata veren kod "ANA SAYFA"daki formüllü hücreleri korumaya aldığımda oluşuyor.
3. Sayfa koruması şifresi yoktur.
Konuya ilişkin çözüm önerisi rica ediyorum.

 

[Haluk]

Arkadaşım; örnek dosyayı eklemişsin ama sayfalar arasında bile geçiş yapamıyoruz çünkü gizlemişin.....

Bu tür "gösterişli" işlerden mümkün mertebe kaçınmanızı tavsiye ederim.

Çok gerekliyse, dosyanın tamamen sorunsuz çalıştığından emin olduktan sonra eğer hakikaten gerekliyse bu tür makyajları az miktarda yapın, sonra tekrar kontrol edin.

Not: Yazdığınız 1. mesajda kullandığınız font ve renkler bile algı karışıklığı yaratıyor. Hangisi daha önemli, bunu niye bu renk yapmış, kırmızı mı yoksa turuncu mu daha önemli diye bir de ona kafa yoruyoruz....

.

 

[klop01]

Sayın Haluk Bey,
Dosya>Seçenekler>Gelişmiş yolunu takip edip Sayfa Sekmelerini Göster kısmındaki tik'i kaldırıp sekmelerin gözükmesini kapattım.
Dosya kullanılırken gerekli olmadığı için çeşitli hesaplamaların yapıldığı sayfaları da gizledim.
Dosyanın hata veren şeklini ekleyerek soru daha net olabilir düşüncesi ile gizli sayfaları açmadım.
Dosyayı eklerken bunları açmak aklıma geldi ama dediğim gibi kullanacağım şekli ile sormak daha iyidir diye düşündüm.

Aşağıda ilgili dosyanın gizli sayfalarının açık olduğu belge var.
SORUN diğer sayfalardan Ana Sayfa olarak kullandığım Maçlar isimli sayfaya döndüğümde birinci iletimdeki hata oluşuyor.

 

[Haluk]

Dosya biraz daha erişilebilir olmuş şimdi....

Aldığınız hata, muhtemelen sayfa korumalardan kaynaklanıyor...... Kodlarda gerekli yerlerde sayfa korumayı kaldırıp, daha sonra tekrar koruma koyarak deneme yapın..... bence.

.

 

[Haluk]

Demek istediğim;

Private Sub Worksheet_Activate()
    say = WorksheetFunction.Count(Sayfa2.Range("D4:R4"))
    ActiveSheet.Unprotect Password:=""
        If say = 0 Then
            Rows("5:5").EntireRow.Hidden = True
        Else
            Rows("5:5").EntireRow.Hidden = False
        End If
    ActiveSheet.Protect Password:=""
End Sub

.

 

[klop01]

Teşekkür ederim, sorun çözüldü.