ToggleButton ile Korumalı Sayfada Gizleme ve Gösterme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Believing

VIP Üye
Kullanıcı
Katılım
1 Haz 2017
Mesajlar
75
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,

VBA:
İndirmek için giriş yapmanız gerekmektedir.
(23 satır)
 
Çözüm
@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
  • 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.
 
Çözüm
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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt