Skip to main content

AccessTr.neT


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

tarkanaykın
tarkanaykın
5
253

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

Çözüldü #1
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
Cevapla
#2
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
Cevapla
#3
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?
Son Düzenleme: 10/08/2022, 09:25, Düzenleyen: tarkanaykın.
Cevapla
#4
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
Cevapla
#5
tamamdır , çok çok teşekkür ediyorum sayenizde çok şükür halledebildim, kolaylıklar diliyorum.
Cevapla
#6
rica ederim
iyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task