Userform açıldığında diğer çalışma kitaplarınında kapanması

[bydogannn67]

hocam dediğiniz gibi yaptım Showmodal false'ye çektim yine fark etmedı bu sefer vazgeçtim dedim excelde gözüksün ama sadece tek sayfa gözüksün görünümden sayfa gizle dedım giriş sayfası harıc hepsını kapattım ama yıne fayda etmedı excel ile formu actığımda diğer kitapları kod kısmındakı reset tuşuna basmadan açamıyorum çıkış yaptığımdada ekranda ıkıncı resımdekı gıbı excel kalıyo neyden kaynaklı olabılır

 

[PLİNT]

Merhaba
Form açıkken "dosya açmaktan vazgeçtim" diyorsanız
Kaydedip kapatırken "Application.Quit" ifadesi en sonda olabilir.
Şöyle olmalı:

Application.Quit
Application.Visible = True
ThisWorkbook.Close SaveChanges:=True 'kaydet kapat

Dosyayı gizleyen kod varsa olabilir,

Windows("aaa").Visible = False

Dosyayı eklerseniz bir bakalım.

 

[PLİNT]

Merhaba
İlk resimdeki kod penceresi formdan kapatırken hata vererek açılıyorsa 15. ve 6.
formlardaki butonlardan olabilir; başka dosya açıkken formun ait olduğu dosya aktif yapılıp
kapatılmalı

Private Sub CommandButton32_Click()
[COLOR="Blue"]ThisWorkbook.Activate[/COLOR]
Sheets("GİRİŞ").Select
Dim pir
pir = MsgBox("Yapımcı: DOĞAN TERZİ" & Chr(10) & Chr(10) & _
            "İyi günler diler..." & Chr(10) & Chr(10) & _
            "Dosya Kaydedilsin mi?", vbQuestion + vbYesNo, "Çıkış")
Select Case pir
    Case vbYes
        ActiveWorkbook.Save
        Unload Me
[COLOR="Blue"] If Application.Workbooks.Count = 1 Then Application.Quit[/COLOR]
        ActiveWorkbook.Close
    Case vbNo
        Application.DisplayAlerts = False
        Unload Me
[COLOR="Blue"]  If Application.Workbooks.Count = 1 Then Application.Quit[/COLOR]
        ActiveWorkbook.Close
End Select
End Sub