Sütunları gizle göster

[ASLAN7410]

Merhaba arkadaşlar herkese hayırlı iftarlar.

Sayfamda U sütunu ile AI sütunu arasındaki sütunlardaki hücrelerde formüllerle işlem yaptığım için
bu sütunları elle gizliyorum, aşağıdaki kodları buldum bu kodları kendi sayfama ayarladım.

Bu kodları tek bir butona yani ToggleButton1 butonuna bağlayamadım.

Bu ToggleButton1 butonunla gizle dediğimde soru sorma mesajı gelmeden otomatik şifreleyerek gizlemesini istiyorum.

Application.InputBox mesaj kutusu ekrana geldiğinde iptal tuşuna bastığımda şifre falan yazmadığım halde Yanlış şifre girdiniz diye uyarı geliyor,
işlem iptal oldu şeklinde olabilir mi? Şifreyi yanlış yazdığımızda Şifreyi yanlış yazdınız mesajı gelmeli.


Ayrıca U sütunu ile AI sütununu elle seçip gizle göster dediğimde yine aynı işlemler oluyor, bunu engellebilirmiyiz?

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
.

Sub GÖSTER()
    sifre = Application.InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "123" Then
        Columns("U:AI").EntireColumn.Hidden = False
    Else
        MsgBox "Yanlış şifre girdiniz.", vbInformation
    End If
End Sub
Sub GİZLE()
    sifre = Application.InputBox("Lütfen şifrenizi giriniz.")
    If sifre = "" Then Exit Sub
    If sifre = "123" Then
        Columns("U:AI").EntireColumn.Hidden = True

    Else
        MsgBox "Yanlış şifre girdiniz.", vbInformation
    End If
End Sub

 

[Saban Sertkaya]

Merhabalar,

Aşağıdaki şeklide bir dener misiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
        Columns("U:AI").EntireColumn.Hidden = True
Else

a = Application.InputBox("Lütfen şifreyi giriniz")

If a = False Then
MsgBox "İşlem İPTAL oldu"
ToggleButton1 = True
Exit Sub
End If

If a = "" Then
MsgBox "Herhangi bir şey yazmadınız."
ToggleButton1 = True
Exit Sub
End If

If a = 123 Then
Columns("U:AI").EntireColumn.Hidden = False
Else
MsgBox "Yanlış şifre girdiniz.", vbInformation
ToggleButton1 = True
End If

End If
End Sub

 

[ASLAN7410]

Sayın saban20152015 ilginize çok teşekkür ederim, tam istediğim gibi oldu ellerinize sağlık, Allah razı olsun.

Küçük bir detay daha var, ama olur mu bilmiyorum.

Butonu kullanmadan sayfa üzerinde U sütunu ile AI sütunu arası gizli iken mause ile seçip sağ tık yapıp göster dediğinde yine gizli sütunlar açılıyor, bunu engellebilirmiyiz?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 21 Then
Cancel = True
End If
End Sub

 

[ASLAN7410]

Sayın Seyit Bey ilginiz için çok teşekkür ederim, valla süper oldu, sizin göndermiş olduğunuz kodları aşağıdaki gibi genişlettim güzel oldu, bu seferde kodlar uzadı, kodlara aralık vererek yapabilir miyiz?

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 15 Then
Cancel = True
End If
If ActiveCell.Column = 16 Then
Cancel = True
End If
If ActiveCell.Column = 17 Then
Cancel = True
End If
If ActiveCell.Column = 18 Then
Cancel = True
End If
If ActiveCell.Column = 19 Then
Cancel = True
End If
If ActiveCell.Column = 20 Then
Cancel = True
End If
If ActiveCell.Column = 21 Then
Cancel = True
End If
If ActiveCell.Column = 22 Then
Cancel = True
End If
If ActiveCell.Column = 23 Then
Cancel = True
End If
If ActiveCell.Column = 24 Then
Cancel = True
End If
If ActiveCell.Column = 25 Then
Cancel = True
End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [O:U]) Is Nothing Then Exit Sub
Cancel = True
End Sub

 

[ASLAN7410]

Sayın Seyit Bey ellerinize sağlık tam istediğim gibi oldu, çok teşekkür ederim, Allah razı olsun.

Hayırlı iftarlar hayırlı kandiller.

 

[Saban Sertkaya]

....................

 

[ASLAN7410]

Bu şekilde deneyebilirsiniz.

Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [O:U]) Is Nothing Then Exit Sub
Cancel = True
End Sub

Sayın Seyit Bey bu kodlar gerçekten çok işime yaradı, çok teşekkür ediyorum.

Küçük bir sorum olacak, bu kodlar O ve U sütunundaki bütün hücreleri etkiliyor, sadece O ve U arası gibi sütun başlıklarında sağ klik çalışmasa, böyle bir şey yapılabilir mi?

 

[Seyit Tiken]

Bende "O:U" sütun başlıklarında da sağ klik çalışmıyor. Satır ve Sütun Başlıklarını gizleyerek sağ kliki engeleyebilirsiniz.

 

[ASLAN7410]

Sayın Seyit Bey forumdan yararlanarak hazırlamış olduğum programda U sütunu ile AI sütunu arasında işlem yaptığım birçok formüller var, bu sütunları gizlediğim için formüller görünmüyor, programı kullanan başka arkadaşlar bu sütunları açıp formülleri bozmasın diye U ile AI sütun arasını gizledim.
Bu sütunlardan gizli olan U ve AI sütunlarını açmak istediğimde U ve AI sütun başlığını seçtiğim zaman sağ klik çalışmıyor, ancak T ile AJ sütun başlıklarını seçtiğim zaman sağ klik çalışıyor, U ve AI sütunları açılmasın diye bende bunu daha genişleterek, koda K ve BB yazdım.

Bu seferde K ile U arasında kalan gizli olmayan hücreler ile AI ile BB arasında kalan gizli olmayan hücrelerde sağ klik çalışmıyor.

Sadece harfli sütun başlıklarında sağ klik çalışması iptal edilebilir mi?

 

[Seyit Tiken]

Satır ve Sütun başlıkları birlikte oluyor, ayrı ayrı olmuyor.

Not : Programınıza bu kodu ilave ederek deneyiniz.

ActiveWindow.DisplayHeadings = ActiveWindow.DisplayHeadings = False

 

[ASLAN7410]

Sayın Seyit Bey çok teşekkür ediyorum, sizi uğraştırdım kusura bakmayın, Allah razı olsun. Bu da güzel oldu işime yaradı.

Hayırlı bayramlar diliyorum.