gizlenen sekmeleri gösterme

[kneehot]

selamlar.arkadaslar sorunumla ılgılı acılmıs bır konunun altına yazdım ama cvp alamadım gorunmedı sanıyorum oyuzden yenı konu actım.asagıdakı kod ıle sayfa sekmelerını gızledım fakat gızledıklerımı gostermek ıcın bır yol bulamadım yardımcı olursanız cok sevınırım.tesekkurler.

Sub MasqueOnglet()
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
End Sub

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub SAYFA_SEKMELERİNİ_GİZLE()
    With ActiveWindow
    .DisplayWorkbookTabs = False
    End With
End Sub
 
Sub SAYFA_SEKMELERİNİ_GÖSTER()
    With ActiveWindow
    .DisplayWorkbookTabs = True
    End With
End Sub

 

[kneehot]

Cok tesekkurler