Hai Jajang,

Terus terang, saya kurang paham maksud dari kasus ini.

btw,
Jika yang dimaksud adalah WorkbookA yang telah terbuka dapat mengetahui ada
workbook lain (workbookB) yang dibuka kemudian dan workbookB yang baru
dibuka akan diproses oleh VBA yang ada di workbookA (yang terbuka lebih
dulu), maka bisa begini : (bisa di save as add in atau sekadar .xlsm atau
.xlsb)
1. Buka Excel dengan sebuah workbook baru -> lakukan save as -> pilih type
nya adalah .xlsm -> beri nama filenya BookA.xlsm
2. ke VBA -> buka lembar script module Thisworkbook -> buat event workbook
open dan biarkan kosong dulu
3. deklarasikan variabel diluar prosedur event (baris pertama lembar
script) yang bertype object application disertai opsi withevents
public withevents myApp as application

4. di dalam prosedur event workbook open (yang dibuat di nomor 2), isi
dengan proses inisialisasi variabel myApp
set myapp=application

5. pada object myApp, buat event WorkbookOpen dan isi dengan proses yang
Anda butuhkan.
    Misal : menampilkan nama workbook yang baru saja dibuka oleh user
    msgbox "Open : " & wb.name & vbcrlf & "Folder : " & wb.path & vbcrlf &
"Fullname : " & wb.fullname

6. [bila perlu] pada object myApp, buat event NewWorkbook dan isi dengan
proses yang Anda butuhkan.
    Misal : membuat nama sheet pertama workbook baru adalah Kid
    wb.sheets(1).name="Kid"

7. save -> tutup semua Excel -> jalankan file BookA.xlsm
8. coba buka workbook lain (CTRL o) atau buat workbook baru (dengan CTRL n)

Regards,
Kid





2017-03-20 12:07 GMT+07:00 jajang muhammad siddik [email protected]
[belajar-excel] <[email protected]>:

>
>
> Para Suhu
>
> Mohon bantuannya saya akan membuat macro add-in di Excel, dengan perintah
> jika file tertentu di buka makan macro berjalan. misalkan jika file excel
> *olahdata.xls* di buka, maka *macro2* berjalan, namun jika file lain yang
> di buka maka tidak ada macro yang berjalan.
> Saya sudah coba - coba menggunakan perintah *Workbook_Open() , *namun ini
> berfungsi ke semua excel, bukan pada file tertentu.
>
> Semoga teman2 para suhu dapat mengerti penjelasan saya di atas.
>
> Salam,
>
>
> jajangms
>
>
> 
>

Kirim email ke