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]
              • ... y.ron...@yahoo.com [belajar-excel]
    • Re: [belajar... NangAgus nanga...@gmail.com [belajar-excel]

Kirim email ke