Halo Jajang, Sambil tunggu masukan dari para master, Coba nanti saya lihat dulu ya ? Btw, Maaf. Saya baru 'ngeh.. karena prosedurnya untuk Add in, copas skrip tsb mulai dari Dim sampai dengan End If yang terakhir ditengah sebuah Function (ie : Function WbCheck Bukan pada event Workbook open).
Sony. *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>* On Tue, Mar 21, 2017 at 9:22 AM, jajang muhammad siddik [email protected] [belajar-excel] <[email protected]> wrote: > > > Halo Pak Sony, > > Terimakasih atas masukkan nya. script ini bisa berjalan jika saya save > file ini dengan format xls. Namun kendala nya jiika saya save as file > menjadi add-in, kenudian saya tambahkan beberapa perintah di sheet (contoh > di bawah yang di bold) script ini tidak bisa berjalan. > Setelah saya check jika script nya berjalan sebagai add-in, script > tersebut berjalan setelah workbook di buka, namun sebelum sheet aktif, > walhasil script tidak bisa menemukan *sheet1 *karena memang status nya > tidak ada/belum terbuka. Sementara perintah yang akan saya buat membutuhkan > sheet yang aktif. > > Private Sub Workbook_Open() > Dim wbName As String > > wbName = Application.ThisWorkbook.Name > If wbName <> "FileName.xlsm" Then > MsgBox "Nama file tidak sesuai !" > > *Sheet1.Activate* > * Range("a1").value = "1"* > > Else > If wbName = "FileName.xlsm" Then > MsgBox "Nama file sudah sesuai" > End If > End If > > End Sub > > > > Pada Senin, 20 Maret 2017 18:20, "Sony Ario [email protected] > [belajar-excel]" <[email protected]> menulis: > > > > 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 > <http://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 > > > > > > >
