belli sürede uyarı mesajı

[euphrates55]

merhaba, exceli açtıktan sonraki her 15 dk da bir uyarı mesajı çıkması (işiniz yoksa kapayınız) için ne yapılabilir. ya da işlem yapılmadığını anlayabiliyorsa, excel de herhangi bir değişiklik yapılmadığı zamandan 5 dk sonra böyle bir uyarı mesajı verilmesi için birşey yapılabilir mi?

 

[__TR__]

Çalışma sayfanızdaki modül'e aşağıdaki kodları yapıştırın
Kırmızı ile renklendirilmiş bölümden mesajın aralık süresini saniye cinsinden ayarlayınız!

Option Explicit
Public RunWhen As Variant
Public Const cRunIntervalSeconds = [B][COLOR="Red"]30[/COLOR][/B] Public Const cRunWhat = "MESAJ"

Sub ZAMANLAMA()
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub

Sub DURDUR()
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub

Sub MESAJ()
MsgBox "İŞİNİZ BİTTİNCE LÜTFEN PROGRAMI KAPATINIZ... ", vbCritical, " UYARI!"
ZAMANLAMA
End Sub

Sub Auto_Open()
Call MESAJ
End Sub

Aşağıdaki kodu çalışma sayfanızın Workbook kısmına kopyalayınız.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "ÇALIŞMA" Then
Call MESAJ
Else
Call DURDUR
End If
End Sub

 

[euphrates55]

teşekkürler. Public Const cRunWhat kısmında hata alıyordum. alt satıra geçirince sorun düzeldi.