CheckBox İle Sayfa Gizle/Göster

[ormann]

Ekli örnek dosyada ana sayfa üzerinde bulunan CheckBox İle A,B,C Sayfalarını gizleyip nasıl gösterebiliriz ?
http://dosya.co/k9d48vwq639l/Örnek.xlsm.html

 

[Ömer BARAN]

Merhaba.

-- Alt taraftan ANASAYFA isimli sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın.
.

[B]Private Sub CheckBox2_Click()[/B]
If CheckBox2 = True Then
    Sheets("A").Visible = False
    Sheets("B").Visible = False
    Sheets("C").Visible = False
Else
    Sheets("A").Visible = True
    Sheets("B").Visible = True
    Sheets("C").Visible = True
End If
[B]End Sub[/B]