ToggleButton ile Korumalı Sayfada Gizleme ve Gösterme

[Believing]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar Formdaş arkadaşlar,

Aşağıdaki alıntı kodlar ile A sütununa göre boş satırları gizleme veya gösterme işlemi yapıyorum. Bu kodlara iki senaryo daha eklemek istiyorum.
1-) ToggleButton'un korumalı sayfada çalışması sağlanacak,
2-) Mevcut kodlarla senkronize çalışan, "B", "F:H", "AO:BB" sütunlarını da gizle göster eylemine dahil etmek istiyorum.
Yukarıdaki koşulları sağlamak için aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Bu kodu görmek için giriş yapmanız gerekmektedir (23 satır). Giriş Yap

 

[Ömer BARAN]

@Believing

• Kodda mevcut Dim.... satırının altına Activesheet.Unprotct "123" şeklinde bir satır ile End Sub satırının hemen üstüne de bu kez UnProtect kısmını Protect olarak değiştirerek ekleyin.
• Kodda mevcut .Caption = "Göster" satırının üstüne Range("B:B, F:H, AO:BB").EntireColumn.Hidden = True şeklinde bir satır ve .Caption = "Gizle" satırının üstüne de aynı kod satırının True kısmını FALSE diye değiştirerek ekleyin.

Sanırım istediğiniz bu.

 

[Believing]

Merhaba Ömer bey,

Bu değerli bilgi için size çok teşekkür ederim.
ALLAH sizlerden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla.