Proğramın otomatik olarak kapanması

[misnet]

Sevgili Arkadaşlar....

Benim örnek dosyada ki gibi bir proğramım var. Bu proğramın açıldıktan sonra 3 dakika içinde son girilen verileride kaydederek Beni uyardıktan (evet-Hayır seçeneği sunarak)sonra" otomatik olarak kapatılmasını istiyorum.

Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim. Saygılar.....

Proğram Kullanıcı adı: misafirhane
Şifre : 1

 

[Murat OSMA]

Sn. Emrah Çanakkale'nin kodlarını deneyebilirsiniz...

[SIZE="2"]Sub Auto_Open()
süre = 180 ' saniye olarak süre
basla = Timer
Do While Timer < basla + süre
DoEvents
Loop
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub[/SIZE]

 

[Murat OSMA]

OnTime metodu ile de yapabilirsiniz...

[SIZE="2"]Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:03:00"), "Dosyayı_Kapat"
End Sub

Sub Dosyayı_Kapat()
    ThisWorkbook.Save
    Application.Quit
End Sub[/SIZE]

 

[misnet]

Sayın OSMA

Verdiğiniz kod ve cevap için teşekkür ederim Saygılar

 

[Murat OSMA]

Rica ederim...