excel sayfasında herşeyi gizleme

[eskli]

arkadaşlar
excel sayfasında herşeyi gizlemek ya da kaldırmak istiyorum thisworkbook kısmına hangi kodları yazdırmalıyım?

örneğin sayfa sekmeleri için;

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = True
End Sub

 

[eskli]

arkadaşlar dün gece sormuştum soruyu ve bi yerde yanlış anlaşılmış olabiceğimi farkettim
sayfayı açınca sadece hücreler ve formül çubuğunun kalmasını istiyorum yani sadece formül çubuğunun değil
cevaplarınızı bekliyorum

 

[kecevik]

Sub AnaSayfaPageSelect()
Sheets("AnaSayfa").Select
ActiveWindow.DisplayHeadings = False ' satır ve sütun başlıkları
ActiveWindow.DisplayWorkbookTabs = False ' sayfa sekmeleri
Application.DisplayFormulaBar = False ' formül çubuğu
ActiveWindow.DisplayHorizontalScrollBar = False ' yatay kaydırma çubuğu
ActiveWindow.DisplayVerticalScrollBar = False ' dikey kaydırma çubuğu
End Sub

 

[İsmail Küçükşengün]

Çalışma kitabındaki tüm sayfalar için uygulamak istersek; yukarıdaki kodlar nasıl olmalı ve ThisWorbook'a mı, modüle mi yazılmalı?