Private Sub Workbook_Open()
Dim fs, f, s
Dim tb As String
Application.Visible = False
tep = ThisWorkbook.Name
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(tep)
s = f.DateCreated + 1 / 96
If Now() > s Then
tb = "File nay da qua han test, de co the test ban copy file nay" & Chr(13) & _
"thanh ban copy khac de test hoac goi cho so 123456789. Cam on!"
MsgBox tb, , "TEST KHONG CHE THOI GIAN"
Application.Quit
Else
tb = "File nay chi mo duoc trong thoi gian 15 phut. Qua han de co the test" & Chr(13) & _
"ban copy file nay thanh ban copy khac de test hoac goi cho so 123456789. Cam on!"
MsgBox tb, , "TEST KHONG CHE THOI GIAN"
Application.Visible = True
End If
End Sub