Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Application.Visible = False
ToggleButton1.Caption = "Göster"
Else
Application.Visible = True
ToggleButton1.Caption = "Gizle"
End If
End Sub
'
Private Sub UserForm_Initialize()
ToggleButton1.Caption = "Gizle"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.