Tüm sayfaları gizlerken hata

[bafralifatih55]

Merhabalar arkadaşlar.
Çalışma kitabındaki tüm sayfaları aşağıdaki kod ile gizlemeye çalışırken çalışma kitabında en az bir sayfanın görünür olması gerektiğinden kod hata veriyor. Acaba hatayı nasıl giderebilirim?
Teşekkürler.


Sub deneme()
For Each MyPage In Sheets
If Not MyPage Is Nothing Then
MyPage.Visible = False
End If
Next
End Sub

 

[Tores333]

merhaba,
en az 1 tane bırakmalısınız diye biliyorum. 1 adet boş bir sekmeyi bırakabilirsiniz.

Referans Link

 

[bafralifatih55]

Merhaba
Bende bu şekild biliyorum. Ama kodun burada hata vermemesi için ne yapabilirim?

 

[YUSUF44]

"Bir tane bırakmak" gerektiğini bildiğinize göre hata olmaması için "bir tane bırakmanız" gerekmez mi? "Şu sayfa harici diğer sayfaları gizle" gibi bir düzenleme yapılabilir.

 

[Korhan Ayhan]

Merhaba,

Kodun yapısını bozmadan hata mesajını atlamak istiyorsanız kodun başlık satırının altına On Error Resume Next komutunu ekleyebilirsiniz.