Gizli Sütunları Kısayol ile Açmak

[Seyit Tiken]

Program yaparken, EXCELİN kendi menülerini sonuna kadar kullanmak taraftarıyım, menüler yetersiz veya kodlar gerekli olduğu zaman kullanılması veyahut kısayol söz konusu olduğu zaman. Gemiye fazla yük yüklemek pratik değildir. Satır ve Sütunları kodla veya menüden GİZLERSENİZ, gizli satırları kimse açamaz. Excel'in Mutfağında fazlasıyla kod(lar) var, yapacağınız tek şey, güzel bir ÇORBA yapmaktır.

 

[1Al2Ver]

Sayın Seyin Tiken merhaba,

İlginiz ve önerileriniz için teşekkür ederim,

19 no.lu mesaj ekindeki dosya ile ilgili, anılan sayfaya makro ile veri aldığım için, o sayfada koruma yapamıyorum, dolayısı ile de sütun gizlenemiyor.

Sayın Ömer Baran'ın yazdığı kod ile veri alıyorum,

Kod ;

Sub ZİYARETÇİ_KAYIT()
Set zk = Sheets("ZİYARETÇİ_KAYIT")
Set zl = Sheets("ZİYARETÇİ_LİSTESİ")
zk.[C2:C8].Copy
zl.Cells(zl.Cells(Rows.Count, "B").End(xlUp).Row + 1, "B") _
    .PasteSpecial Paste:=xlPasteValues, Transpose:=True
zk.Range("C3:C7").ClearContents
End Sub

Kod, "ZİYARETÇİ_LİSTESİ" sayfasının E:H aralığı ile J ve K sütunları korunmuş iken kayıt yapabilirse, kullanıcı "ZİYARETÇİ_LİSTESİ" sayfasında "I" sütununa etki edebilir, sakıncası olmaz.

Böyle bir çözüm sorunumu çözebilir.

Teşekkür ederim.