Sadece butonla dosyayı kapatma

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim örnek dosyanın BuÇalışmaKitabı kısmına aşağıdaki kodu ekledim.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    MsgBox "Burdan kapatamazsınız, butonu kullanın."
End Sub

Aşağıdaki koduda modüle ekledim, ancak dosya ne butonla kapanıyor, nede çarpıdan kapanıyor.

Sub Kapat()
    Select Case Excel.Windows.Count
        Case 1
            ThisWorkbook.Save
            Application.Quit
        Case Is > 1
            ThisWorkbook.Save
            ThisWorkbook.Close
    End Select
End Sub

Benim istediğim sadece butonla dosyanın kapanmasını istiyorum, forumda çok çalışma var, ancak bir türlü kodları çalıştıramadım.

Yardımcı olur musunuz?
.

 

[cems]

Module değil , düğmeye çift tıklayarak açılan alanda bu şekilde deneyin.
Sub ve End Sub ların çift olmamasına dikkat edin .

Sub Kapat()

Msgbox " Bu çalışma kitabı kaydedilerek kapatılıyor"
ThisWorkbook.Save
Application.Quit

End Sub

 

[ASLAN7410]

Sayın cems dediğiniz gibi yaptım, olmadı. Sadece butonun çalışmasını istiyorum.

Küçük bir örnek gönderir misiniz?

 

[cems]

Sayın cems dediğiniz gibi yaptım, olmadı. Sadece butonun çalışmasını istiyorum.

Küçük bir örnek gönderir misiniz?

Dosyanızı indiremiyorum , direk üzerinde çalışamasam da iki yoldan biri ilk söylediğim usul.

Neden case yaptığınızı şu an anlamasam da , eğer modülden kapatmanız gerekiyorsa duğme altına sadece

Thisworkbook.save
call kapat

Yazınca modülü çağırır ve çalıştırır.

Ya da mümkünse dosyanızı www.dosya.tc de yukleyip gelen üstteki linki buradan paylaşırsanız ihtimalli çalışmayız.

 

[ASLAN7410]

Dosya ekte.

http://dosya.co/shhkmrwwqsza/Butonla_kapatma.xlsm.html

 

[Korhan Ayhan]

Bu işlem için deklarasyon bölümünde BOOLEAN bir değişken tanımlamanız gerekiyor.

Örnek dosyayı deneyiniz.

Kodlar;

Modül;

Public Kontrol As Boolean

Sub Kapat()
    Kontrol = True
    Select Case Excel.Windows.Count
        Case 1
            ThisWorkbook.Save
            Application.Quit
        Case Is > 1
            ThisWorkbook.Save
            ThisWorkbook.Close
    End Select
End Sub

BuÇalışmaKitabı (ThisWorkBook)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Kontrol = True Then GoTo Son
    Cancel = True
    MsgBox "Burdan kapatamazsınız, butonu kullanın."
Son:
End Sub

 

[ASLAN7410]

Sayın Korhan Bey ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi oldu.

Hayırlı çalışmalar hayırlı günler diliyorum.