Buton ile Şifreli Grafik Gizle/Göster

[Kojiro1453]

Merhabalar Dostlarım
Yine çok bilinmeyenli bir denklemle karşı karşıyayım daha önceden belli başlı sütunları şifreli gizle ve göster komutu ile cebelleştim sorun çözüldü şimdi bir grafik tablosu yaptım bu tabloyu butona gizle komutu verdim gizliyor lakin aynı buton ile gizle göster yapabilirmiyim ve tabi ki şifre sorarak ?

örnek exceli tarafınıza paylaşıyorum sağ tarafta bulunan değerlendirme ölçeği buton ve aşağısında ki de gizlenmesi gereken göstermek için şifre gereken grafik tablosudur

 

[Kojiro1453]

arkadaşlar var mı yardımı olabilecek ?

 

[Hakan ERDOST]

arkadaşlar var mı yardımı olabilecek ?

Kendi kod yapınız içerisinde çözüldü. Gizleme "2345", Gösterme "3456".

 

[Kojiro1453]

Kendi kod yapınız içerisinde çözüldü. Gizleme "2345", Gösterme "3456".

çok ama çok teşekkür ederim

 

[Hakan ERDOST]

çok ama çok teşekkür ederim

Rica ederim. Yalnız kodu kontrol ederken bir hata fark ettim. Gizleme şifresi için sorun yokken, göster şifresi için hatalı şifre girseniz de kod grafiği gösteriyordu.Kodunuzu aşağıdaki kod ile güncelleyiniz!..

Sub Goster_Gizle()
f = "2345"
g = "3456"
On Error GoTo Son
Sor = InputBox("Şifre giriniz...", "UYARI")
ActiveSheet.Unprotect "12345"
If Sor = "" Then GoTo Son
If Sor = f Then
ActiveSheet.ChartObjects("Grafik 1").Visible = False
ElseIf Sor = g Then
ActiveSheet.ChartObjects("Grafik 1").Visible = True
Else
MsgBox "Hatalı şifre girdiniz.Gizle/Göster için belirlediğiniz şifreyi giriniz!..", vbCritical, "UYARI"
End If
Son:
ActiveSheet.Protect "12345"
End Sub