Msgbox'a belli sürede cevap verilmezse otomatik NO kabul etsin

[parcequil]

Arkadaşlar Merhaba,

VBA da yazmış olduğum makroda Msgbox'a belli sürede cevap verilmezse otomatik NO kabul etmesini istiyorum. böyle bir şey yapabilir miyim?
Döngüye alayım dedim ama olmadı cevap girilmediği sürece sosuz beklemeye geçiyor.

Konu hakkında yardımcı olabilirseniz çok sevinirim.

Teşekkürler.




If g4 = "32" And kullanici = ad1 Then

cvp = MsgBox("Full Kontrol Süreniz Dolmuştur Salt Okunur Olarak Dosya Açılacaktır !!!", vbYesNo)

Select Case cvp

Case vbYes

Koruma_koyma

Case vbNo

Ekstra_zaman

End Select

 

[ÖmerBey]

Userform kullanarak kendi mesaj kutunuzu oluşturabilirsiniz.
Ya da popup kullanabilirsiniz.

Sub ZamanlıKutu()
    Dim zmn As Integer, MesajKutusu As Object
    Set MesajKutusu = CreateObject("WScript.Shell")
    zmn = 10
    cvp = MesajKutusu.Popup("Bu mesaj 10 saniye sonra kapanacak.", _
    zmn, "Mesaj Kutusu Başlığı", vbYesNo)
    If cvp = vbYes Then
        MsgBox "Tercihiniz: Evet"
    Else
        MsgBox "Tercihiniz: Hayır"
    End If
End Sub

 

[parcequil]

Çok işime yarayacak yardımlarınız için çok teşekkürler.

 

[parcequil]

Şöyle bir sorun oluştu.

Tek başına proğram çalışıyor orada bir sıkıntımız yok.

Fakat benim VBA'nın içine ekleyince zamanı saymıyor ve cevap verinceye kadar bekliyor.

Aşağıda benim kullandığım VBA dan bir parçayı örnek olarak koyudum. Orada "Application.OnTime Now" kullanıyorum, gerçi bunun sayması bitince sizin proğrama geçiyor ama oradamı bir çakışma oluyor onu anlayamadım.

Else
yazma_aktif
Buton_no1
Buton_korumasız
Buton_no2
Buton_korumalı
Application.OnTime Now + TimeValue("00:10:00"), "süre_doldu"
Range("AJ1") = "YAZ"
Range("Ak1") = "FULL"
End If

 

[ÖmerBey]

Maalesef hiç bir fikrim yok. İsterseniz userform oluşturup deneyiniz daha sağlıklı olacaktır.
İyi çalışmalar...