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 1:51 PM, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] wrote:
Hai Yusuf,
Skg kan sdh 2018...jadi workbook ga bisa dibuka.
Kalau mau jalankan macroya...date yang ada di komputer dimundurin dulu.
Salam,
HK
On Friday, 13 April 2018, 1:20:16 PM GMT+7, y.ron...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> 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
