File EXCEL Kadaluarsa

sobat lama saya tidak share, kali saya akan akan share masih mengenai excel dan macro tentunya. Yang saya share kali ini yaitu tentang expired (kadaluarsa) file excel.

Seperti biasa untuk latihan kita bikin satu file excel baru, sheet1 kasih nama "HOME" sheet yang lain apa saja boleh. Lalu kita buka macro excel untuk lebih cepat tekan di keyboard ALT + F11, source code nya sebagai berikut simpan di "ThisWorkbook"

Private Sub Workbook_Open()

Application.Calculation = xlCalculationSemiautomatic

Dim TglExpire As Date

TglExpire = "9/9/2013" 'mm/dd/yyyy

If Date > TglExpire Then

MsgBox ("Periode Aplikasi sudah berakhir, Harap hubungi Dede Suparman") _

, vbOKOnly + vbExclamation, "Expired"

Application.DisplayAlerts = False

sembunyikan "HOME"

ThisWorkbook.Close

End If

ActiveWindow.DisplayWorkbookTabs = False

End Sub

dan untuk di "modules" bikin terpisah saja bikin module baru klik kanan insert module

source code nya sebagai berikut

Sub sembunyikan(nmSheet As String)

With Worksheets(nmSheet)

.Visible = xlSheetVisible

.Activate

End With

For Each Sh In ThisWorkbook.Worksheets

If Sh.Name = ActiveSheet.Name Then

   Sh.Visible = xlSheetVisible

   Else

   Sh.Visible = xlSheetVeryHidden

   End If

   Next Sh

End Sub

save dah, jangan lupa save macro enabled-workbook

contoh file di SINI, demikian share kali ini. salam del.