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