Kayıp Sayfalar

[heft]

Kitaba Sayfa Ekleyeme Sorunu

Merhaba,
Bir çalışma kitabında,toplam 5 sayfa var ama görünen sayfa sayısı 2.
Sayfaları Gizle/göster kısmına giriyorum gizli sayfa göremiyorum.

Ama kod sayfasına(ctrl+F11) girdiğimde 5 sayfa olduğunu görüyorum.

İlk defa karşılaştığım bir şey bu acaba özel bir ayar mı var?

Bilginiz var mı?

 

[uzmanamele]

Merhaba,
Bir çalışma kitabında,toplam 5 sayfa var ama görünen sayfa sayısı 2.
Sayfaları Gizle/göster kısmına giriyorum gizli sayfa göremiyorum.

Ama kod sayfasına(ctrl+F11) girdiğimde 5 sayfa olduğunu görüyorum.

İlk defa karşılaştığım bir şey bu acaba özel bir ayar mı var?

Bilginiz var mı?

Merhaba
Kod sayfasında, properties'de
XlSheetVeryHidden (çok gizli sayfa) XlSheetVisible yapın

 

[heft]

"Worksheet sınıfının Visible özelliği kurulamıyor"
hatası veriyor.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyin.

Sub SAYFALARI_GÖSTER()
    Dim Sayfa As Worksheet
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Visible = 0 Or Sayfa.Visible = 2 Then
            Sayfa.Visible = -1
        End If
    Next
End Sub

 

[heft]

Merhaba Sayın Ayhan,
şimdide Sayfa.Visible = -1 hatası veriyor.

 

[uzmanamele]

Merhaba

Aşağıdaki kodu çalıştırın, bakalım sayfalar hakkında başka bilgi edinebilecekmiyiz.

Sub deneme()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
If Sheets(i).Visible = 0 Then
x = 0
xl = "gizli"
Else
If Sheets(i).Visible = 2 Then
x = 2
xl = "çok gizli"
Else
If Sheets(i).Visible = -1 Then
x = -1
xl = "görünür"
End If
End If
End If
Cells(i, 2) = x
Cells(i, 3) = xl
Next
End Sub

 

[heft]

kod çalıştı ama dosyada bir değişiklik yok
görünen 2 sayfa , vba kod bölümünde 5 sayfa

sudoku oldu mübarek.

 

[merakli_72]

ilgili dosyayı ekleseniz,
sorun çoktan çözülmüştü
uzmanamele arkadaşın yazdıkları sorunuzu çözmesi lazım bence,
ya anlatılanları yanlış uyguluyorsunuz yada sorunu tam ifade edemiyorsunuz
ilgili kitabı ekleme imkanınız varsa bizde bakmak isteriz

 

[heft]

sayın meraklı
malesef dosyayı ekleyemiyorum.kodları aynen uyguladım sanırım farklı bir yöntem ile yapılmış.

 

[merakli_72]

selam,
eğer dosyayı ekleyememe sebebiniz içindeki verilerin gizliliği ise
dosyanın bir kopyasını oluşturup
kopya dosya içindeki verileri sildikten sonra ekleyebilirsiniz (isterseniz)
sonuçta dosya içindeki verilerle alakalı bir durum değil

 

[heft]

Merhaba
Verilerin gizliliği açısından dosyayı maalesef gönderemiyorum.Sayfalar çok gizli olduğundan aktif hale dönüştürüp sayfayı görebilsem,sorun kalmayacak.
Sizce başka bir yolu var mı?
Şimdi fark ettim bu kitabın tüm sayfalarında visible özelliğini değiştirmeye kalktığımda
gizli olmayan sayfayı gizli yapmaya kalktığımda "Worksheet sınıfının Visible özelliği kurulamıyor" hatası veriyor.
Sanki bir yerden şartel kapatılmış gibi
Ayrıca kitaba başka sayfa da ekleyemiyorum.

 

[heft]

fikri olan var mı ?
Tekrar hatırlatmak istedim.