sesuaikan lokasi filenya dan copas script berikut di notepad lalu simpan dengan extension .vbs

strPath = "C:\Documents and Settings\MASBRED\My Documents\My Reminder.xlsm"
strMacro = "ThisWorkbook.Workbook_Open"

Set objApp = CreateObject("Excel.Application")
objApp.Visible = False

Set wbToRun = objApp.Workbooks.Open(strPath)
objApp.Run wbToRun.Name & "!" & strMacro

Enaknya taruh file vbs nya di dekstop agar gampang manggilnya, mungkin yaa.. sesuaikan selera aja deh

Wassalam


On 2/1/2013 2:31 PM, s. munawaroh wrote:

gimana caranya untuk membuat reminder di excel untuk pegawai yang
sudah habis masa kontraknya??
jadi bentuknya seperti pop up gitu,..
mohon bantuanya.,..

__

Attachment: My Reminder.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke