kod hakkında yardım

[security]

merhaba aşagıdaki koddaki hatayı düzeltemedim yardımlarınızı bekliyorum tşk...

Private Sub CommandButton2_Click()
    If ComboBox1.Value = "" Then Exit Sub
    If TextBox1.Text <> TextBox2.Text Then
        MsgBox "Şifreniz hatalı...", vbCritical, "Dosya Kapatılacak"
         Application.Visible = True
         Unload Me
        ActiveWorkbook.Close 0
        Else
     UserForm1.Hide
      MsgBox "HOŞGELDİNİZ " 
      Application.Visible = True
     End If
          Sheets("ANASAYFA").Select
     End Sub

UserForm1.Hide kodunu unload me veya unload userform1 yaptıgımda exele döüş olmuyor kapatılıyor... hide komutunda ise formda ses oldugu için sürekli çalıyor. excele dönünce...tşk

 

[Seyit Tiken]

Tahmini Çözüm : UserForm'u kapatmak için "End" komutunu deneyiniz.

 

[security]

Tahmini Çözüm : UserForm'u kapatmak için "End" komutunu deneyiniz.

 Private Sub CommandButton2_Click()
    If ComboBox1.Value = "" Then Exit Sub
    If TextBox1.Text <> TextBox2.Text Then
        MsgBox "Şifreniz hatalı...", vbCritical, "Dosya Kapatılacak"
         Application.Visible = True
         Unload Me
        ActiveWorkbook.Close 0
        Else
     UserForm1.Hide
      MsgBox "HOŞGELDİNİZ " 
      Application.Visible = True
     End If
          Sheets("ANASAYFA").Select
End
     End Sub

hocam tşkler.. şu an oldu sanırım... bir şey daha hocam kodda eksik veya fazla olarak kod varmı ?