Dear Yusuf:
Coba cekrip:
Edate = Format("31/08/2009", "DD/MM/YYYY") ' Replace this with the date
you want
diubah menjadi:
Edate = Format("30/04/*2018*", "*dd/mm/yyyy*") ' Replace this with the
date you want
Jabat erat
NangAgus
On 4/13/2018 11:47 AM, y.ron...@yahoo.com [belajar-excel] wrote:
Saya sudah script berikut namun tidak bisa digunakan:
Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("31/08/2009", "DD/MM/YYYY") ' Replace this with the
date you want
If Date > Edate Then
MsgBox ("This worksheet was valid upto " & Format(Edate,
"dd-mmm-yyyy") & " and will be closed")
ActiveWorkbook.Close
End If
If Edate - Date < 30 Then
MsgBox ("This worksheet expires on " & Format(Edate,
"dd-mmm-yyyy") & " You have " & Edate - Date & " Days left ")
End If
End Sub
Mohon dibantu scrip untuk experied date untuk Office 2010?
Terimakasih.
Yusuf