Sayfa Gizle

[hakanbolat]

Excel Sayfasını Nasıl Gizleriz ve daha sonra nasıl gösteririz.. Bunu hem makro hemde manuel nasıl yapabiliriz Arkadaşlar..

 

[Ali]

Gizlemek istediğin sayfanın sekmesini sağ tuş ile tıkla kod görüntüle kısmını tıkla Visible yazan kısımdan 0-xlSheetHidden kısmını seç o sayfa gizlenecektir. Tekrar açmak istediğinde gizlenmemiş diğer bir sayfanın üzerinde yine sağ tuş ve kod görüntüle kısmını seçtiğinde VBA kısmında daha önce gizlediği sayfayı seç ve Visible kısmını -1-xlSheetVisible yap

 

[Ali]

Sub gizle()
MsgBox "sayfa1'i gizle.."
Worksheets("sayfa1'i gizle").Visible = False
End Sub
Sub hepsini_gizle()
MsgBox "En sondaki hariç (yani, 'boş') tamamını gizle.."
On Error Resume Next
Dim gizle As Worksheet
For Each gizle In Worksheets
gizle.Visible = xlVeryHidden
Next
End Sub
Sub hepsini_goster()
MsgBox "Tümünü göster"
Dim goster As Worksheet
For Each goster In Worksheets
goster.Visible = True
Next
End Sub

 

[Ali]

Yukarıda belirtiğim makro ile gizlersin ayrıca manuel olarak gizlemek içinde başka bir yöntem biçim menüsünden sayfayı ve oradan oradan gizle kısmını kullanarakta gizleyebilirsin.

 

[baydeniro]

Sayın Ali çok teşekkürler. Çok ilginç bir kod. Bu kod ile sayfa gizlendiğinde Sayfa Göster sekmesinden sayfa görünür hale getirilemiyor. Bu farklı bir kod, çok ilginç.