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        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
SalamSony


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 



  #yiv1941761468 #yiv1941761468 -- #yiv1941761468ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1941761468 
#yiv1941761468ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1941761468 
#yiv1941761468ygrp-mkp #yiv1941761468hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv1941761468 #yiv1941761468ygrp-mkp #yiv1941761468ads 
{margin-bottom:10px;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad 
{padding:0 0;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad p 
{margin:0;}#yiv1941761468 #yiv1941761468ygrp-mkp .yiv1941761468ad a 
{color:#0000ff;text-decoration:none;}#yiv1941761468 #yiv1941761468ygrp-sponsor 
#yiv1941761468ygrp-lc {font-family:Arial;}#yiv1941761468 
#yiv1941761468ygrp-sponsor #yiv1941761468ygrp-lc #yiv1941761468hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1941761468 
#yiv1941761468ygrp-sponsor #yiv1941761468ygrp-lc .yiv1941761468ad 
{margin-bottom:10px;padding:0 0;}#yiv1941761468 #yiv1941761468actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1941761468 
#yiv1941761468activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1941761468
 #yiv1941761468activity span {font-weight:700;}#yiv1941761468 
#yiv1941761468activity span:first-child 
{text-transform:uppercase;}#yiv1941761468 #yiv1941761468activity span a 
{color:#5085b6;text-decoration:none;}#yiv1941761468 #yiv1941761468activity span 
span {color:#ff7900;}#yiv1941761468 #yiv1941761468activity span 
.yiv1941761468underline {text-decoration:underline;}#yiv1941761468 
.yiv1941761468attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv1941761468 .yiv1941761468attach div a 
{text-decoration:none;}#yiv1941761468 .yiv1941761468attach img 
{border:none;padding-right:5px;}#yiv1941761468 .yiv1941761468attach label 
{display:block;margin-bottom:5px;}#yiv1941761468 .yiv1941761468attach label a 
{text-decoration:none;}#yiv1941761468 blockquote {margin:0 0 0 
4px;}#yiv1941761468 .yiv1941761468bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv1941761468 
.yiv1941761468bold a {text-decoration:none;}#yiv1941761468 dd.yiv1941761468last 
p a {font-family:Verdana;font-weight:700;}#yiv1941761468 dd.yiv1941761468last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1941761468 
dd.yiv1941761468last p span.yiv1941761468yshortcuts 
{margin-right:0;}#yiv1941761468 div.yiv1941761468attach-table div div a 
{text-decoration:none;}#yiv1941761468 div.yiv1941761468attach-table 
{width:400px;}#yiv1941761468 div.yiv1941761468file-title a, #yiv1941761468 
div.yiv1941761468file-title a:active, #yiv1941761468 
div.yiv1941761468file-title a:hover, #yiv1941761468 div.yiv1941761468file-title 
a:visited {text-decoration:none;}#yiv1941761468 div.yiv1941761468photo-title a, 
#yiv1941761468 div.yiv1941761468photo-title a:active, #yiv1941761468 
div.yiv1941761468photo-title a:hover, #yiv1941761468 
div.yiv1941761468photo-title a:visited {text-decoration:none;}#yiv1941761468 
div#yiv1941761468ygrp-mlmsg #yiv1941761468ygrp-msg p a 
span.yiv1941761468yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1941761468 
.yiv1941761468green {color:#628c2a;}#yiv1941761468 .yiv1941761468MsoNormal 
{margin:0 0 0 0;}#yiv1941761468 o {font-size:0;}#yiv1941761468 
#yiv1941761468photos div {float:left;width:72px;}#yiv1941761468 
#yiv1941761468photos div div {border:1px solid 
#666666;height:62px;overflow:hidden;width:62px;}#yiv1941761468 
#yiv1941761468photos div label 
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1941761468
 #yiv1941761468reco-category {font-size:77%;}#yiv1941761468 
#yiv1941761468reco-desc {font-size:77%;}#yiv1941761468 .yiv1941761468replbq 
{margin:4px;}#yiv1941761468 #yiv1941761468ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv1941761468 #yiv1941761468ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1941761468 
#yiv1941761468ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1941761468 
#yiv1941761468ygrp-mlmsg select, #yiv1941761468 input, #yiv1941761468 textarea 
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv1941761468 
#yiv1941761468ygrp-mlmsg pre, #yiv1941761468 code {font:115% 
monospace;}#yiv1941761468 #yiv1941761468ygrp-mlmsg * 
{line-height:1.22em;}#yiv1941761468 #yiv1941761468ygrp-mlmsg #yiv1941761468logo 
{padding-bottom:10px;}#yiv1941761468 #yiv1941761468ygrp-msg p a 
{font-family:Verdana;}#yiv1941761468 #yiv1941761468ygrp-msg 
p#yiv1941761468attach-count span {color:#1E66AE;font-weight:700;}#yiv1941761468 
#yiv1941761468ygrp-reco #yiv1941761468reco-head 
{color:#ff7900;font-weight:700;}#yiv1941761468 #yiv1941761468ygrp-reco 
{margin-bottom:20px;padding:0px;}#yiv1941761468 #yiv1941761468ygrp-sponsor 
#yiv1941761468ov li a {font-size:130%;text-decoration:none;}#yiv1941761468 
#yiv1941761468ygrp-sponsor #yiv1941761468ov li 
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv1941761468 
#yiv1941761468ygrp-sponsor #yiv1941761468ov ul {margin:0;padding:0 0 0 
8px;}#yiv1941761468 #yiv1941761468ygrp-text 
{font-family:Georgia;}#yiv1941761468 #yiv1941761468ygrp-text p {margin:0 0 1em 
0;}#yiv1941761468 #yiv1941761468ygrp-text tt {font-size:120%;}#yiv1941761468 
#yiv1941761468ygrp-vital ul li:last-child {border-right:none 
!important;}#yiv1941761468


   

Attachment: FileName.xlam
Description: application/vnd.ms-excel.addin.macroenabled.12

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

Kirim email ke