Soru Makro ile Butona Gizle/Göster Komutu Nasıl Verebilirim ?

[Kojiro1453]

Merhabalar Dostlar

İş yerimde bir excel oluşturdum ama makroda bir yerde takıldım sizlerden ricam bana bu konuda yardımcı olmanız soruna gelecek olursak;

Diyelim ki

A B C D E F G H sütünları var

Herkesin ayrı sütünu ve butonu var ve


A ve C Sütünunu Ali Şifre İle görebilecek
B ve D Sütünunu Ayşe Şifresi ile görebilecek
E ve G Sütünunu Fatma Şifresi ile görebilecek
F ve H Sütünunu Mehmet Şifresi ile görebilecek

ve tabi ki sayfa korumalı olması gerekiyor gizliyi göster dediğinde erişim olmayacak

yardımcı olursanız çok ama çok sevinirim şimdiden çok teşekkürler

 

[1Al2Ver]

Merhaba,

Forumda ToggleButton diyerek arama yapabilir siniz, bir çok çözüm bulacaksınız...

Örnek 2 Kod ;

Private Sub ToggleButton1_Click() 'GÖSTER
ActiveSheet.Unprotect "Ayşe"
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
Range("B:H,U:V").EntireColumn.Hidden = True
Else
ToggleButton1.Caption = "GİZLE"
Range("B:H,U:V").EntireColumn.Hidden = False
End If
ActiveSheet.Protect "Ayşe"
End Sub

YADA

Private Sub ToggleButton1_Click() 'GÖSTER
ActiveSheet.Unprotect "Ali"
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
Range("A:C").EntireColumn.Hidden = True

Else
ToggleButton1.Caption = "GİZLE"
Range("A:C").EntireColumn.Hidden = False

End If
ActiveSheet.Protect "Ali"
End Sub

 

[Kojiro1453]

Çok teşekkür ederim cevap için tabi ki araştırdım istediğim sonuca ulaşamadım nitekim farklı kaynaklara da bakıyorum sizin örnek 2 adı altında verdiğiniz kodlama sadece gizleme ve gösterme işlevi görüyor

Bendeki Makro

Sub Makro1()

d = "34567"

g = "3456"

On Error GoTo Son

ActiveSheet.Unprotect "12345"

Columns("d:g").EntireColumn.Hidden = True

Sor = InputBox("Şifre giriniz...", "UYARI")

If Sor = "d:g" Then GoTo Son

If Sor = d Then

Columns("d:g").EntireColumn.Hidden = False

ElseIf Sor = g Then

Columns("d:g").EntireColumn.Hidden = False

Else

MsgBox "Hatalı şifre girdiniz.", vbCritical, "UYARI"

End If

Son:

ActiveSheet.Protect "12345"

End Sub

Şeklinde ama burdaki sorun d ve g sütunları arasındakini de bana göstermesi

 

[Kojiro1453]

var mı yardımcı olabilecek biri acaba benim için önemli bir konu ?

 

[Kojiro1453]

arkadaşlar benim için çok önemli bir konu illa ki bilen biri vardır yardım bekliyorum
ilgili excelde aşağıda paylaşıyorum

http://www.dosya.tc/server17/epy016/2.rar.html

 

[Kojiro1453]

arkadaşlar ciddi kenara sıkıştım vaktimde çok yok bir yardımcı olsanız

 

[GursoyC]

Eğer sorun aradaki kolonları da göstermesi ise;

Columns("d:g").EntireColumn.Hidden = True

şeklindeki kodu

Columns("d").EntireColumn.Hidden = True
Columns("g").EntireColumn.Hidden = True

şeklinde değiştirirseniz d ile g arasını gizlemeyip, sadece d ve g kolonlarını gizler.

diğer kodlarda da aynı mantıkla değişiklik yaparsanız istediğinizi elde edersiniz.

 

[bilgiconline]

Çok teşekkür ederim cevap için tabi ki araştırdım istediğim sonuca ulaşamadım nitekim farklı kaynaklara da bakıyorum sizin örnek 2 adı altında verdiğiniz kodlama sadece gizleme ve gösterme işlevi görüyor

Bendeki Makro

Sub Makro1()

d = "34567"

g = "3456"

On Error GoTo Son

ActiveSheet.Unprotect "12345"

Columns("d:g").EntireColumn.Hidden = True

Sor = InputBox("Şifre giriniz...", "UYARI")

If Sor = "d:g" Then GoTo Son

If Sor = d Then

Columns("d:g").EntireColumn.Hidden = False

ElseIf Sor = g Then

Columns("d:g").EntireColumn.Hidden = False

Else

MsgBox "Hatalı şifre girdiniz.", vbCritical, "UYARI"

End If

Son:

ActiveSheet.Protect "12345"

End Sub

Şeklinde ama burdaki sorun d ve g sütunları arasındakini de bana göstermesi

Asıl sorun ne anlayamadım ? D ve G sütunları arasındakiler gizle komutu vermişsiniz iki farklı şifreyede. Gözüksün mü istiyorsunuz ?

 

[Kojiro1453]

kafam allak bullak olduğundan çok derdimi anlatamadım bakın örnek dosyayı ekte tarafınıza paylaşıyorum

mesela kampüs müdürü butonuna basıldığında d ve g sütunlarını açsın kaydettiğinde işlemi sütunlar gizlensin tekrardan

 

[bilgiconline]

Sayın Kojiro1453 , şöyle mi diyelim butonlar aç komutunu veriyor fakat gizle komutunu vermiyor tekrar bastığımda. İşlem yaptıktan sonra çalışma kitabını kaydedip çıkarken bu sutünlar gizli kalmıyor tekrar açıldığında ben en son verilen komutu görmek istemiyorum mu olay ?

 

[Kojiro1453]

Ben en baştan anlatayım isterseniz çünkü karıştı herşey;

örnek tabloyu musaitseniz sizde indirin
orada Kampüs müdürü kısmı var ve birim yöneticisi kısmı vs gidiyor şimdi kampüs müdürü kendi butonuna tıkladığında şifresini girerek kendine ait sütunları görüp puantajını verip kaydedip çıktığında kendine ait olan sütün tekrar gizli konumuna gelsin birim yönetici kendi butonuna tıkladığında ise kendine ait sütunları görsün her butonun ayrı sütunu ve şifresi olacak ve kimse kendi sütunu hariç bir yer göremeyecek

umarım anlatabildim şimdiden kusuruma bakmayın

 

[bilgiconline]

Bunu deneyin fakat bu puan tablosunu da kapatıyor kodları incelerseniz istediğiniz değişikliği yapabilirsiniz.


Şuan ki durumda puan giren kişi dosyayı kapatıp başkası açıtğında (başka girişli biri) önüne müdürün önüne oluşan tablolar gelmiyor. Keşke başta login form koysa idiniz bunları daha kolay bir şekilde yapabilirdiniz.

İyi çalışmalar.

 

[Kojiro1453]

heh şimdi login formu hiç sokma aklıma üstadım hemen inceliyorum eki

 

[Kojiro1453]

şöyle birşey yapabilirmiyiz butona tıkladığında aynı anda (d) ve (g) sütunları şifre ile açılsın tek bir şifre olsun

 

[bilgiconline]

Önceki dosya muhtemel olarak işinize yaradı , diğer şifreleri ve butonları kodlarınız inceleyerek yapabileceğinizi düşünüyorum , ne yazık ki bugün çok vaktim olmayacak akşama tekrar buralarda olurum , eğer bir sonuca ulaşamaz iseniz yine yazınız.

İyi günler.

 

[Kojiro1453]

yok malesef işime yaramadı ya ayrı ayrı açılıyor sütunlar yada hepsi açılıyor hepten çorba ettim kodlamayı