Makroları ToggleButton ile çalıştırmak.?

[ZİNDAN]

Ekteki örnek dosyada görüldüğü gibi arkadaşlar sarı sütünları togglebutton yardımı ile gizlemek ve göstermek istiyorum.ayrı düğmelerle yaptığım işi tek bir togglebutton ile yapmak istiyorum.

Birinci tıklamada sarı sütunları gizlesin, ikinci tıklamada da sarı sütünları göstersin istiyorum.Gizleme işini yaptımda ikisini bir arada hem gizle hem gösteri yapamadım.

Bir de şifre koymak istiyorum buna şifreyi bilmeyen sarı sütünları göremesin mesela.Bu mümkünmü.?

Yardımcı olurmusunuz.
Teşekkürler.

 

[meslan]

Merhaba
Commandbutton1 caption'u "GÖSTER" olarak değiştir.

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "GÖSTER" Then
CommandButton1.Caption = "GİZLE"
sutungoster
Exit Sub
End If
If CommandButton1.Caption = "GİZLE" Then
CommandButton1.Caption = "GÖSTER"
sutungizle
End If
End Sub

 

[veyselemre]

Örneğinizi inceleyin.

 

[ZİNDAN]

İkinizede teşekkürler sayın meslan ve veyselemre.
Tam istediğim gibi olmuş.

 

[ZİNDAN]

Sayın veysel emre,
Yapmış olduğunuz örnekte şifre ekranında hiçbirşey yazmadan OK yada CANCEL yapınca hata veriyor.!

Nasıl düzelteceğiz onu.?

 

[veyselemre]

Aşağıdaki şekilde düzeltin.

Private Sub ToggleButton1_Click()
    With Sayfa1.ToggleButton1
        If .Value = True Then
            sutungizle
            .Caption = "Sütun Göster"
        Else
            sifre = InputBox("Lütfen Şifre Girin", "Şifre Girişi")
            If sifre = 1 Then
                sutungoster
                .Caption = "Sütun Gizle"
            Else
                MsgBox "Yanlış Şifre"
            End If
        End If
    End With
End Sub

 

[ZİNDAN]

Teşekkürler sayın veyselemre.
Allah razı olsun.