Halo Jajang, Apa maksud nya seperti file terlampir ? Maaf kalau belum sesuai ya ?
Skrip saya :
Private Sub Workbook_Open()
Dim wbName As String
wbName = Application.ThisWorkbook.Name
If wbName <> "FileName.xlsm" Then
MsgBox "Nama file tidak sesuai !"
Else
If wbName = "FileName.xlsm" Then
MsgBox "Nama file sudah sesuai"
End If
End If
End Sub
Salam
Sony
*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
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
>
>
>
>
FileName.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
