Her 15 dk bir excel dosyası kapansın mı? Soran makro

[parcequil]

Arkadaşlar

Excel çalışma kitabına bir makro oluşturmak istiyorum her 15 dk bir otomatik olarak excel çalışma dosyası kapatılsın mı diye soran vede 3 sorguya arka arka cevap alamazsa otomatik dosyayı kaydedip kapatan bir makro yazabilirmiyiz?

 

[parcequil]

Onetime komutu ile olayı çözdüm

 

[hamitcan]

Belki bu kodlarda işinizi görür.

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10 '10 saniye anlamında
    Select Case InfoBox.Popup("dosya kapansın mı", _
    AckTime, "Dosyayı Otomatik Kapat", 4)
        Case 1, -1
        x = x + 1
         kaydet
         Exit Sub
    End Select
End Sub

Sub kaydet()
    If x = 3 Then
        ActiveWorkbook.Save
        MsgBox "Kitap Kaydedildi"
        Exit Sub
    End If
     a = Application.Wait(Now + TimeValue("0:00:10")) '10 saniye bekle anlamında
     MessageBoxTimer
End Sub