Hỏi về để code VBA có hiệu lực (2 người xem)

[nthxe]

Chào mọi người,
Tôi có 1 code VBA, do một số lý do nên tôi chỉ muốn nó có hiệu lực trong 1 thời gian cụ thể nào đó, có thể là chỉ trong vòng 24h mà code ấy chạy lần đầu tiên hoặc chỉ trong ngày cụ thể nào đó. Ngoài thời gian trên, marco này ko chạy.

Xin cảm ơn

 

[Quang_Hải]

Chào mọi người,
Tôi có 1 code VBA, do một số lý do nên tôi chỉ muốn nó có hiệu lực trong 1 thời gian cụ thể nào đó, có thể là chỉ trong vòng 24h mà code ấy chạy lần đầu tiên hoặc chỉ trong ngày cụ thể nào đó. Ngoài thời gian trên, marco này ko chạy.

Xin cảm ơn

Mấy dạng này dễ òm nhưng lại ít ai muốn nói ra. Kỳ vậy đó. Chịu khó dò tìm trong diễn đàn cũng có nhiều lần bàn luận rồi.

 

[huuthang_bd]

Chào mọi người,
Tôi có 1 code VBA, do một số lý do nên tôi chỉ muốn nó có hiệu lực trong 1 thời gian cụ thể nào đó, có thể là chỉ trong vòng 24h mà code ấy chạy lần đầu tiên hoặc chỉ trong ngày cụ thể nào đó. Ngoài thời gian trên, marco này ko chạy.

Xin cảm ơn

Nếu là gửi file cho người khác thì khó lắm. Vì ngày giờ trên máy người ta người ta muốn chỉnh thì chỉnh mình đâu kiểm soát được.

 

[nthxe]

Nếu là gửi file cho người khác thì khó lắm. Vì ngày giờ trên máy người ta người ta muốn chỉnh thì chỉnh mình đâu kiểm soát được.

Vâng, cũng là làm phép thôi, người ta thay đổi giờ hệ thống là đứt.

 

[nthxe]

Mấy dạng này dễ òm nhưng lại ít ai muốn nói ra. Kỳ vậy đó. Chịu khó dò tìm trong diễn đàn cũng có nhiều lần bàn luận rồi.

Vâng, em sẽ tìm kỹ hơn, nếu ko được thì nhờ các anh giúp nhé

 

[Kiều Mạnh]

Vâng, cũng là làm phép thôi, người ta thay đổi giờ hệ thống là đứt.

vụ này dễ thôi mà cho người ta mở file lên mấy lần thì Killfile luôn...trên GPE có cả một rừng
mà mấy vụ này cũng chỉ gạt được mấy người chưa hiểu về VBA thôi.... cuối cùng cũng không để làm gì cả

 

[huuthang_bd]

Vâng, cũng là làm phép thôi, người ta thay đổi giờ hệ thống là đứt.

Bạn thử cái này, Có hiệu lực trong 1 ngày kể từ lần chạy đầu tiên.

Sub Test()
Dim DateAndTime As String
DateAndTime = GetSetting("ABC", "DEF", "XYZ", "")
If DateAndTime = "" Then
    SaveSetting "ABC", "DEF", "XYZ", Format(Date, "yyyy/mm/dd") & "_" & Format(Time, "hh:mm:ss")
Else
    If DateValue(Left(DateAndTime, 10)) + TimeValue(Right(DateAndTime, 8)) - Date + Time > 1 Then Exit Sub
End If
Main
End Sub

Private Sub Main()
MsgBox 1
End Sub