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



  • [belajar-excel] M... y.ron...@yahoo.com [belajar-excel]
    • Re: [belajar... hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
      • Re: [bel... NangAgus nanga...@gmail.com [belajar-excel]
        • Re: ... y.ron...@yahoo.com [belajar-excel]
          • ... hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
            • ... Yusuf Roni y.ron...@yahoo.com [belajar-excel]
              • ... NangAgus nanga...@gmail.com [belajar-excel]
    • Re: [belajar... NangAgus nanga...@gmail.com [belajar-excel]

Kirim email ke