Tarihin geri alınmasını engellemek

[kargec]

Arkadaşlar Selamlar..

Modülde şöyle bir kod var

Sub Tak()
Dim Zaman As Date
Zaman = Now + TimeValue("00:00:01")
Application.OnTime Zaman, "Tik"
End Sub
Sub Tik()
Range("A1").Value = Now
Call Tak
End Sub

ThisWorkbook sayfasında ise

Private Sub Workbook_Open()
Call Tak
End Sub

A1 hücresi biçimide şöyle

gg.aa.yy - ss:dd:nn

Kısacası aktif tarih-saat-dakika-saniye var

Diğer bir modülde ise

Sub auto_open()
If Date < [A1] Then
Application.DisplayAlerts = False
su = MsgBox("Sistem tarihi veya saati hatalı. Bilgisayar tarihini veya saatini düzeltiniz." _
& vbLf & vbLf & " , ", vbInformation + vbOKOnly, "Tarih Hatalı")
ActiveWorkbook.Close True
End If
End Sub

Burdaki amaç programı kullan arkadaşların verileri eşzamanlı girmeleri çok önemli.
Ancak arkadaşlar bunu tarihi veya saati geri alarak gerçekleştiriyorlar.
Tarih veya saat hatalı olduğunda program mesaj gönderecek, sayfa açılmayacak.
Tarih düzeltilince tekrardan çalışmaya başlayacak.
Kodların nasıl olması gerekiyor.
Saygılar...

 

[fireman64]

Kullanılan bilgisayarlar İnternete bağlı ise internetten tarih saati kontrol ettirip tarih saat doğru ise programın açılmasını sağlamak lazım diye düşünüyorum

 

[kargec]

Kullanılan bilgisayarlar İnternete bağlı ise internetten tarih saati kontrol ettirip tarih saat doğru ise programın açılmasını sağlamak lazım diye düşünüyorum

Son kayıt tarihi eklemek gerekiyor sanırım. ancak o zamanda o kayıt tarihine geri dönerlerse yine program çalışmamalı.

 

[kargec]

Arkadaşlar selamlar.
Sorunu çözdüm ihtiyacı olan olursa yardımcı olurum.
saygılar..