Exeli 5 dakika sonra otomatik kapatma

[cinarbx]

Kullanmış olduğum exel dosyasını otomatik farklı bir uygulama üzerinden açabiliyorum ama bu açılan exelde bir otomatik mail göndermesi için vba yazılı. yani exel otomatik açılıyor mail gönderiyor 5 dakika sonra da bu exel otomatik kapansın istiyorum nasıl yapılabilir?

 

[ÖmerFaruk]

Excelden mail attrın kodların son satırından önce
Application.Quit
komutuyla exceli kapatabilirsiniz.

 

[mars2]

İyi Akşamlar;

Alıntıdır.

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "Formu_Kapat"
End Sub


Sub Formu_Kapat()
If MsgBox("5 dakikalık formu kullanma süreniz bitmiştir," & vbCrLf & _
"1 dakikalık ek süre almak için EVET" & vbCrLf & _
"Formdan çıkmak için HAYIR seçiniz..." & vbCrLf & _
"İlginize teşekkür ederiz...", vbQuestion + vbYesNo, "Aktif oturum süreniz dolmuştur...") = vbYes Then
Call Extra_süre
Else
ThisWorkbook.Save
Application.Quit
End If
End Sub

Sub Extra_süre()
Application.OnTime Now + TimeValue("00:01:00"), "Extra_süre_son"
End Sub

Sub Extra_süre_son()
MsgBox ("Ek süreniz dolmuştur, üzgünüm formu kapatmalıyım..."), vbInformation, "Ek süreniz dolmuştur..."
ThisWorkbook.Save
Application.Quit
End Sub

 

[cinarbx]

Excelden mail attrın kodların son satırından önce
Application.Quit
komutuyla exceli kapatabilirsiniz.

Bu maili gönderip sonrasında exeli direk kapatıyor mu ? yani exel 1 saniye açık kalıp direk kapanıyor galiba ?