Excel VBA Sayfa Sekmesini Gizle – Göster


Excel VBA’da bulunan Excel kütüphanesindeki Windows sınıfının DisplayWorkbookTabs metodundan faydalanarak sekmenin geçerli durumuna göre gizleme ya da gösterme işlemini yaptıralım.

Ekran Görüntüsü

Kod
Option Explicit

Sub sayfa_sekmesini_gizle_goster()
Dim durum As Boolean

durum = ActiveWindow.DisplayWorkbookTabs

If (durum = False) Then
  ActiveWindow.DisplayWorkbookTabs = True
  durum = True
Else
  ActiveWindow.DisplayWorkbookTabs = False
  durum = False
End If
End Sub
Kod (Açıklamalı)
Option Explicit

Sub sayfa_sekmesini_gizle_goster()
'If içinde mantıksal karşılaştırma yapacağız.
'If kısmının içi çok uzamasın diye değişken
'tanımladım ve bunun üzerinden ilerleyeceğim.
Dim durum As Boolean

'Sayfa sekmesinin geçerli konumunu bir alalım.
'Ona göre gösterecek veya gizleyecek. Bu arada
'DisplayWorkbookTabs Boolean sonuç döndürüyor.
durum = ActiveWindow.DisplayWorkbookTabs

'Eğer sayfa sekmesi gizlenmişse çalışsın.
If (durum = False) Then
  
  'Eğer sekme gizlenmişse göster.
  ActiveWindow.DisplayWorkbookTabs = True
  
  'If kısmında sorun çıkmaması için
  'durum değişkenini de güncelliyoruz.
  durum = True

'DisplayWorkbookTabs Boolean sonuç döndürdüğünden
'eğer sekme gizlenmemişse görünür haldedir.
'Buna göre çalışsın.
Else
  
  'Sekmeyi gizliyoruz.
  ActiveWindow.DisplayWorkbookTabs = False
  
  'Değişkenimizi buna göre güncelliyoruz.
  durum = False
End If
End Sub

Bunlar da hoşunuza gidebilir...


Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir