Excel Çalışmasının Belirli Zamanlarda Kapanması

[mustafa1205]

Sevgili Korhan Hocamın çalışması olan aşağıdaki kodlarda belirli zamanlarda dosya kapatılabiliyor. Uğraştım ama muvaffak olamadım. Bunu zaman aralığında olacak şekilde nasıl yapabiliriz. Yani 20:00 ile 21:20 arası gibi.


Option Explicit

Private Sub Workbook_Open()
Başla:
DoEvents
Select Case Format(Time, "hh:mm")
Case Is = "10:00": DOSYA_KAPAT
Case Is = "12:00": DOSYA_KAPAT
Case Is = "14:00": DOSYA_KAPAT
Case Is = "16:00": DOSYA_KAPAT
Case Is = "20:00": DOSYA_KAPAT Case Else: GoTo Başla:
End Select
End Sub

Sub DOSYA_KAPAT()
ThisWorkbook.Save
MsgBox "Dosyanız otomatik kapanmaya ayarlanmıştır." & vbCrLf & "Dosyanız kapatılacaktır.", vbInformation
If Excel.Application.Windows.Count > 1 Then
ThisWorkbook.Close
Else
Application.Quit
End If
End Sub

 

[mustafa1205]

Sorumu güncellemek istiyorum.

 

[Orion1]

İlgili yere aşağıdı kodları koyarak deneyiniz.

dim saat as date
saat=Format(Time, "hh:mm")
if saat >= timevalue("20:00:00") and saat <= timevalue("21:20:00") then
     DOSYA_KAPAT
     else
     goto Başla
end if

 

[mustafa1205]

Hocam çok teşekkürler ilginiz için. Ancak yapamadım.Eğer imkanınız varsa dosya ekliyorum üzerinde yapabilirmisiniz ?

 

[Orion1]

Hocam çok teşekkürler ilginiz için. Ancak yapamadım.Eğer imkanınız varsa dosya ekliyorum üzerinde yapabilirmisiniz ?

Dosyanız ektedir.

 

[mustafa1205]

Hocam çok teşekkür ediyorum. Sorunsuz çalışıyor. Tekrar teşekkürler ve hayırlı geceler diliyorum.