Untuk membuat file yang akan kita serahkan ke pihak ke dua , dengan menggunakan jangka waktu tertentu, sangatlah mudah, sehingga kita tidak perlu repot untuk menghapus data yang sudah kita serahkan ke pihak ke dua, file akan hilang secara otomatis setelah masa tenggang waktu yang kita berikan sudah habis.
di bawah ini adalah data yang harus di isi kan pada macro yang ada di pojok kanan layar excel. selamat mencoba!!!
Lihat gambar !!!
Data macro untuk expayed excel
Data macro untuk expayed excel
Private Sub Workbook_Open()
Dim exdate As Date
exdate = "03/31/2012" 'silahkan ganti dengan tanggal sesuai keinginan
If Date > exdate Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "P E S A N"
ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
End Sub
Dim exdate As Date
exdate = "03/31/2012" 'silahkan ganti dengan tanggal sesuai keinginan
If Date > exdate Then
MsgBox ("WAKTU anda telah HABIS"), vbInformation, "P E S A N"
ActiveWorkbook.Close
End If
MsgBox ("Anda punya kesempatan " & exdate - Date + 1 & " Hari lagi"), vbInformation, "P E S A N"
End Sub