Excel gizle-göster

[muratgunay48]

Arkadaşlar, sayın hocalarım, buton ile excel gizle göster yapabiliyorum.

Private Sub CommandButton1_Click()
    If Application.Visible = False Then
        Application.Visible = True
        CommandButton1.Caption = "EXCEL'İ GİZLE"
    ElseIf Application.Visible = True Then
        Application.Visible = False
        CommandButton1.Caption = "EXCEL'İ GÖSTER"
    End If
End Sub

Ancak Label ile çift tıklamayla aynı işlemi yapamadım.
Yani çift tık Excel gözüksün, çift tık gözükmesin.

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.Visible = True
End Sub

Şimdiden teşekkür ederim.
Saygılarımla.

 

[byfika]

Alttaki şekilde dener misin?

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.Visible = False Then
Application.Visible = True
Label1.Caption = "EXCEL'İ GİZLE"
ElseIf Application.Visible = True Then
Application.Visible = False
Label1.Caption = "EXCEL'İ GÖSTER"
End If
End Sub

 

[muratgunay48]

Alttaki şekilde dener misin?

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.Visible = False Then
Application.Visible = True
Label1.Caption = "EXCEL'İ GİZLE"
ElseIf Application.Visible = True Then
Application.Visible = False
Label1.Caption = "EXCEL'İ GÖSTER"
End If
End Sub

Hocam çok teşekkür ederim. Tam olarak istediğim.
Emeğinize sağlık.
Benim hatam End If koymadım. İşte bir virgül bile hata veriyor.
Benim yazdığım kod şöyle

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Application.Visible = False Then
Application.Visible = True
Label1.Caption = "EXCEL'İ GİZLE"
ElseIf Application.Visible = True Then
Application.Visible = False
Label1.Caption = "EXCEL'İ GÖSTER"
End Sub

Tekrar teşekkürler.

 

[byfika]

Rica ederim. İyi çalışmalar...