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

[1Al2Ver]

Merhaba,

"ZİYARETÇİ_LİSTESİ" sayfasında, E:H ve J:K arasını manuel gizliyorum,

İsteğim ;

Sayfaya gelen yetkili, gizlenmiş olan E:H ve J:K arasını
bir kısayol ile açsın, gereğini yapsın,

Sonrasında, sayfadan başka bir sayfaya geçtiğinde, yada programı kapattığında, E:H ve J:K arası otomatikman gizlensin.

Tekrar açması gerektiğinde yine kısayol tuşu ile açabilsin.

NOT; Sütun açma işlemi, kısayol yerine, koda yazılmış bir şifre ile de olabilir.

Şifre; rakam, harf yada her ikiside olabilmeli.

Teşekkür ederim.

http://s8.dosya.tc/server5/eif5so/ol_ile_Sutun_Acma___1Al2Ver___24.09.2017.xlsx.html

 

[antonio]

Merhaba,
Aşağıdaki kodları; "ZİYARETÇİ LİSTESİ" Sayfasının kod penceresine yapıştırdıktan sonra, "B1" Hücresine (TARİH yazan hücre) çift tıklayıp sonucu gözlemleyiniz.

Private Sub Worksheet_Activate()
Dim sut As Range
Set sut = Sheets("ZİYARETÇİ_LİSTESİ").Range("E:H,J:K")
    If sut.Columns.Hidden = False Then
            sut.Columns.Hidden = True
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sut As Range, ss As Long, sifre
Set sut = ActiveSheet.Range("E:H,J:K")
ss = ActiveSheet.Range("B55500").End(3).Row + 1
If Not Intersect(Target, [B1]) Is Nothing Then
    If sut.Columns.Hidden = True Then
    sifre = InputBox("Lütfen şifreyi giriniz", "Şifre..", "abc")
        If sifre = False Then Exit Sub
        If sifre = "12345" Then
            sut.Columns.Hidden = False
        End If
    ElseIf sut.Columns.Hidden = False Then
        sut.Columns.Hidden = True
    End If
    ActiveSheet.Range("B" & ss).Select
End If
End Sub

Private Sub Worksheet_Deactivate()
Dim sut As Range
Set sut = Sheets("ZİYARETÇİ_LİSTESİ").Range("E:H,J:K")
    If sut.Columns.Hidden = False Then
            sut.Columns.Hidden = True
    End If
End Sub

 

[1Al2Ver]

Sayın antonio merhaba,

İlginiz için teşekkür ederim, sağ olun,

Önerdiğiniz kod, kişinin, eylemi yapıp yapmamasına ( B1'e çift tıklama ) bağlı olduğu için sakınca doğura bilir.

Ben, gizlenmiş sütunların açılmasından sonra,

Herhangi bir unutmaya karşı, sayfadan çıkarken ve/veya başka sayfaya geçerken, anılan sütunların otomatik gizlenmesini,

Gizli sütunların tekrar açılırken de, şifre yada kısayol ile açılmasını arzuluyorum.

Tekrar teşekkür ederim.

 

[PLİNT]

Merhaba
Alternatif olarak ek dosyayı deneyiniz.
ctrl + sağ tuşu ile gizleyip gösterecektir, kodlar modül ve ziyaretçi sayfasındadır.
http://s8.dosya.tc/server5/g2nldk/ol_ile_Sutun_Acma___1Al2Ver___24.09.2017.zip.html

 

[antonio]

2.No'lu mesajımdaki kodları istediğiniz şekilde revize ettim. sayfa terk edilince veya sayfaya giriş yapılınca sütunlar gizlidir. [B1] hücresine çift tıklayınca şifre ister. Şifre 12345 tir. Doğru girilmedikçe açılmaz.

 

[1Al2Ver]

Sayın PLİNT merhaba,

Çok teşekkür ederim, yanlış bir uygulama yapmıyorsam şayet ;

Farenin sağ tuşu ile açtığım pencerede, Göster tuşu ile açılıyor, Gizle tuşu ile de gizleniyor, bunu engellemek mümkün mü ?

Saygılarımla.

 

[1Al2Ver]

Sayın antonio merhaba,

Çok teşekkür ederim,

Farenin sağ tuşu ile açtığım pencerede, Göster tuşu ile açılıyor, Gizle tuşu ile de gizleniyor, bunu engellemek mümkün mü ?

Teşekkür ederim.

 

[PLİNT]

Merhaba
Ekdeki dosyayı deneyin "ziyaretçi" sayfasında iken penceredeki gizle/göster aktif olmayacak.
http://s8.dosya.tc/server5/nctrgk/deneme.zip.html

 

[1Al2Ver]

Sayın PLİNT tekrar merhaba,

Gecenin bu saatinde rahatsız ediyorum, affola,

Emekleriniz için teşekkür ederim.

D:L aralığını seçip, fare ile sağ klik yaptığımda, açılan pencerede "Göster" aktif olduğundan, tıklandığında gizli sütunlar gözüküyor,

Resimde de görülüyor,

Bunu da halledersek süper olacak,

Tekrar teşekkür ederim, iyi geceler dilerim.

 

[Seyit Tiken]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
End Sub

 

[1Al2Ver]

Sayın Seyit Tiken merhaba,

İlginiz için teşekkür ederim.

 

[askm]

İlgili kodlar sayfa kısmında ama sizin eklediğiniz kodların haricinde sağ tıklama özelliğini pasif yapan bir kod.

 

[1Al2Ver]

Sayın askm merhaba,

Anladım, teşekkür ederim,

Peki 11 no.lu sayfadaki kodlar ile bunu entegre edebilir miyiz ?

 

[askm]

Kodlar ile entegre etmeye gerek yok ki. Ayrı kullanılacak. Aşağıdaki gibi.

Private Sub Worksheet_Activate()
With Application.CommandBars("Column").Controls
.Item(11).Enabled = False
.Item(12).Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
Call gizle
With Application.CommandBars("Column").Controls
.Item(11).Enabled = True
.Item(12).Enabled = True
End With
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = 1
End Sub

 

[PLİNT]

Sayın PLİNT tekrar merhaba,

Gecenin bu saatinde rahatsız ediyorum, affola,

Emekleriniz için teşekkür ederim.

D:L aralığını seçip, fare ile sağ klik yaptığımda, açılan pencerede "Göster" aktif olduğundan, tıklandığında gizli sütunlar gözüküyor,

Resimde de görülüyor,

Merhaba ek dosyadaki gibi bir çözüm uygun olurmu?
http://s8.dosya.tc/server5/0unzpq/deneme.zip.html

 

[1Al2Ver]

Sayın, antonio, PLİNT, Seyin Tiken ve askm,

Yardımlarınız ve ilginiz için teşekkür ederim, zamanınızı ayırıp çözüm üretmeye çalıştınız, çok sağ olun.

Sorun şu ki, gizlenen sütunların manuel açılmaması için, tüm bu önlemleri alsak bile gizli sütunun üzerine gelince, fare işaretçisi artı görünümünden görünümüne geçiyor ve gizlenmiş sütunları fare ile sağa çekerek açabiliyoruz.

Amacım ; "Ziyaretçi_Listesi" sayfasında, gizlenmiş sütunlara hiç bir şekilde manuel etki olmasın,

Ziyaretçi kaydını yapan kullanıcı, Ziyaretçi ayrılacağı zaman, "Ziyaretçi_Listesi" sayfasındaki "I" sütununun veri girişini, elle giriyor, şayet E,F,G,H, J ve K sütunları açık olursa, buralara, her istediğinde erişebiliyor, erişmesin ki düzenleme yapamasın,

Değiştirme-silme vb. yetkileri başkasında olsun ve bu sütunları sadece , yetki verilen kişi şifre ile ve/veya kısayol ile açabilsin,

Bu isteğim olamıyor ise, bu önlemi almak için başka bir yol bulup, makrosunu sizlerden rica edeceğim.

Emekleriniz, önerileriniz ve nezaketiniz için, sizlere çok teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Arkadaşlar merhaba,

Sütun-Gizle/Göster yerine farklı bir çözüm arayışımın sonucu, örnekli ve açıklamalı ek'li dosyamda bir yöntem önerim var, olabilir ise memnun olurum.

Ayrıca, farenin sağ tuşu kliklendiğinde, resimlerde görüldüğü üzere, sütun gizle ve sütun genişliği seçenekleri pasifken, satır gizle ve satır yüksekliği seçenekleri aktif.

Başka çalışma sayfalarında da durum değişmiyor, ne yapıla bilir ?





Teşekkür ederim.

 

[PLİNT]

Merhaba
Son dosyanıza bakamıyorum ama, ilgili sayfada hücrelere veri girişi yeterli ise; ek dosyadaki gibi, gizlenecek sütunların haricindeki hücrelerin kilitleri kaldırılıp sayfa koruması yapılabilir sütunların açılması sayfa koruma şifresinin bilinmesine bağlanmış olur.
http://s8.dosya.tc/server5/c3k80u/deneme2.zip.html

 

[1Al2Ver]

Sayın PLİNT merhaba,

Dosya ;

http://dosya.co/l2zq8e2s5b6a/Ziyaretçi_Kayıt.xlsm.html

Ziyaretçi Kayıt Sayfasından, makro ile Ziyaretçi Listesine veri gönderiyorum, Ziyaretçi Listesi sayfasında, sayfa koruma varsa bu işlem gerçekleşmiyor,

Uğraşmamak için yeni bir senaryo geliştirdim ve dosya da anlattım, olabiliyor ise çok daha işlevsel olur.

Eklediğiniz çözüme şimdi indirip bakacağım.

Teşekkür ederim.

 

[1Al2Ver]

Arkadaşlar merhaba,

17 no.lu mesaj ekindeki dosya ile ilgili bir gelişme ( yapılabilir veya yapılamaz ) bekliyorum,

Teşekkür ederim.