X işaretini pasif yapmak

[öğrtm]

iyi akşamlar
bu konu forumda daha önce işlenmiş fakat örnek dosyalar şuanda silinmiş.yapmak istediğim şey excel uygulamasında ki X işaretini pasif yapmak yardımcı olursanız sevinirim.
herkese iyi çalışmalar

 

[justjack]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

 

[öğrtm]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

ilginiz için tşk ederim ama benim istediğim userformun değil excel çalışma kitabındaki pencereyi kapat butonunu pasif yapmak bu konu ile ilgili yardım arıyorum.

 

[Ayhan Ercan]

Merhaba

Vba editörüne girin,
This Workbook 'a aşağıdaki kodu yazarak deneyiniz...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[öğrtm]

teşekkürler

Ayhan bey bu yardımınız içinde çok teşekkür ederim.iyi çalışmalar.

 

[Ayhan Ercan]

Ayhan bey bu yardımınız içinde çok teşekkür ederim.iyi çalışmalar.

Rica ederim

Ancak bu kod ile x pasifize edilmiş değil, çalışma kitabından çıkış engellenmiş oluyor..

Koda mesaj kutusu ile ilave yaparak çözüm bulabilirsiniz...

 

[öğrtm]

sayın ercan
ben kitabı kapatmak için form üzerinde bir buton yapmıştım
workbook beforeye yukarıdaki kodu yazınca bu defa butonumda çalışmıyor.böylece kitabı kapatamıyorum acaba neden

 

[ersoyalan]

Merhaba,

İstediğiniz böyle birşeymi.

E.ALAN

 

[öğrtm]

ersoy bey zannedersem benim ihtiyacıma cevap verecek kodlar bunlar uyarlamaya çalışacağım.ilgi ve yardımlarınız için teşekkür ederim.

 

[Ayhan Ercan]

Merhaba,

İstediğiniz böyle birşeymi.

E.ALAN

Merhaba,

Soruya cevap verdikten sonra acil cıkmam gerektiğinden soruyu çözümsüz bırakmıştım. Ancak siteye giresiye kadarda kafamda çözüm arıyordum.
Baktım ki ersoyalan bir cevap yollamış....

Elinize sağlık güzel bir çözüm, tebrik ederim.......

 

[ersoyalan]

öğrtm, rica ederim.


Ayhan hocam merhaba,

Teşekkürederim.Önemli olan sorunun çözülmesiydi.
Bu arada aramızda kalsın hocam kodlar alıntıydı.

E.ALAN

 

[öğrtm]

sağolun ercan bey problemi katkılarınızla çözmüş olduk.iyi ki benim gibi vba da yeni olanlar için sizler ve excel web tr var.herkese iyi çalışmalar.

 

[Karakus4435]

Arkadaşlar ben bu kodları yaptım ama X işaretine basınca yine kapanıyor aynı formlara uyguladığımda kapanmıyor benim derdim çıkış butonundan başka birşeyle kapanmamasını istiyorum.

 

[Seceren]

Bu sayfa işinize yaraya bilir...

Soru - Buton vasıtası ile kaydedip X işaretini devre dışı bırakma

Arkadaşlar merhaba. Ekli dosyada yapmak istediğim olay şu. 1- "X" işaretine basıldığında "X" işareti çalışmayacak ve Excel'i kapatamayacak. 2- Kaydet ve Yedekle butonuna eklediğim kod ile de dosyayı hem bulunduğu dizine kaydedecek hem de belirtilen dizine yedeğini alacak.Aynı zamanda da...

excel.web.tr

 

[Karakus4435]

arkadaşlar mesaj verdirmek değil amacım sadece çıkış ile çıkmasını sağlamak.

 

[Seceren]

Bu komutu silersen mesaj vermez.

MsgBox "Lütfen ÇIKIŞ Butonunu Kullanınız.", vbCritical