Kapat Komutlarının Çakışması

Değerli arkadaşlar ve hocalarım, çok bekledim bir önceki konuların kapanmasını ki, kurala uyma açısından. Ama artık bekleyecek zamanım kalmadı çok özür dileyerek sorunumu aktarmak istiyorum. elimde exceli x'dan kapatmayı engelleyen (thisWorkBook modülünde), bir de userformda çıkış yapan butona ait kodlarım var. sorunum şu; userformdaki çıkış butonuna tıklayınca excelin x sından çıkmayı engelleyen kod devreye giriyor ve o çalışıyor ne alaka anlayamadım. Exceli hiç bir şekilde kapatamıyorum, yardımlarınızı bekliyorum, şimdiden teşekkürler.

exceli x dan kapatmayı engelleyen (workbook modülündeki) kod bloğu

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Kapat Butonu Devre Dışıdır"
Cancel = True
End Sub

userformda oluşturulan çıkış butonu kod bloğu

Private Sub CommandButton1_Click()


Excel.Application.Quit
End Sub

forma değişken atarsınız
form açılırken false olur, kapatma butonuna da bu değeri true yapacak kod yazılır
gerisi kapatma olayında bu değeri kontrole kalır

Dim Dgr As Boolean

Private Sub CommandButton1_Click()

Dgr = True

 Unload Me

End Sub

Private Sub UserForm_Initialize()

Dgr = False

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If Dgr = True Then Exit Sub

MsgBox "Kapat Butonu Devre Dışıdır"

Cancel = True

End Sub

berduş hocam çok teşekkür ederim, ben excelin x sından çıkılmasını engellemek ve sadece userformdaki benim oluşturduğum çıkış butonundan çıkılmasını, yani uygulamanın kapatılmasını sağlamak istiyorum. Userformda çıkış butonumda application.quit ile çıkış yapabiliyorum, Excel uygulamasının x sından çıkılmasını engellemek için de kodum var , ama gelin görün ki userformun çıkış butonuna tıkladığım zaman sanki Excel in x sına tıklamış gibi ona ait olan kodlar çıkmamı engelliyor. Sizin önerdiğiniz çözüm tabi ki iş görür, sanırım userformun x sına tıklayınca engelliyor, engelleme olayı Excel uygulamasının x sından olsun istiyorum. Bir de bir sorum olacak Dim Dgr As Boolean bildirimi modülde mi olacak?

Dim Dgr As Boolean kodu modulun yani formun en üstüne eklenecek
Yukardaki kod sizin belirttiginiz gibi dogrudan X ile kapatmayi engeller

---

Unload me yerine kendi kapatma kodunuzu yazarak deneyebil8rsiniz

tamamdır , çok çok teşekkür ediyorum sayenizde çok şükür halledebildim, kolaylıklar diliyorum.

rica ederim
iyi çalışmalar)