Sütunları gizleyerek şifrelemek

[Araştırıcı]

Değerli Hocalarımız
Merhaba

Ben ekli dosyamda Potansiyel İşler sayfasındaki tabloda, sadece ilk 3 sütunun gözükmesini diğerlerinin bir butonla görünür hale gelip yine aynı butonla (ya da 2. bir butonla) tekrar gizlenebilmesini sağlamak istiyorum. Nasıl olabilir?

Saygılarımla

 

[mithrill74]

sütun gizleme

istediğiniz böyle bişey herhalde.

 

[Araştırıcı]

Merhaba,
Çok teşekkür ediyorum, elinize sağlık.
Burada butona şifre koyabilir miyiz basıldığında bir şifre sorsa, olabilir mi?
Saygılarımla

 

[Seyit Tiken]

Tek butonla çift işlem.

Sub Makro1()
[E:IV].Columns.Hidden = [E:IV].Columns.Hidden = 0
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz. Şifre : 123'tür.

Sub Makro1()
a = Application.InputBox("Şifre Giriniz", "Araştırıcı")
If a = 123 Then
[E:IV].Columns.Hidden = [E:IV].Columns.Hidden = 0
Else
MsgBox "Yanlış Şifre Girdiniz"
Exit Sub
End If
End Sub

 

[Araştırıcı]

Sayın Seyit Tiken
Merhaba,

Yanıtınız için teşekkür ederim ama bunu bir düğmeye bağladım işlem yapmıyor? Diğer metod çalışyor. Bunda eksik olan bir şey mi bıraktım ?

 

[Orion1]

Merhaba,
Çok teşekkür ediyorum, elinize sağlık.
Burada butona şifre koyabilir miyiz basıldığında bir şifre sorsa, olabilir mi?
Saygılarımla

Merhaba.
Aşağıdaki ekli dosyayı inceleyiniz.
Burada şifre 123 tür AA1 hücresine şifreyi girerek değiştirebilirsiniz.

Sub gizle()
Dim sifre As String
sifre = InputBox("Şifreyi Giriniz..:", "ŞİFRE")
If sifre <> Range("AA1").Value Then
    MsgBox "Yanlış Şifre Girişi..!'", vbCritical
    Exit Sub
End If
For Each ALAN In Range("E1:IV1")
Application.ScreenUpdating = False
ALAN.EntireColumn.Hidden = True
Range("A1").Select

Next
End Sub

Sub goster()
Dim sifre As String
sifre = InputBox("Şifreyi Giriniz..:", "ŞİFRE")
If sifre <> Range("AA1") Then
    MsgBox "Yanlış Şifre Girişi..!'", vbCritical
    Exit Sub
End If
For Each ALAN In Range("A1:IV1")
Application.ScreenUpdating = False
ALAN.EntireColumn.Hidden = False
Range("A1").Select

Next
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.