[[20190913161104]]　『フォルダ名の付いたvbsファイルが自動生成される』（つむ）　ページの最後に飛ぶ

『フォルダ名の付いたvbsファイルが自動生成される』（つむ）

お世話になります。

先日、vbaで下記の文を含めた時から、
一定時間経つと各フォルダ名の付いたvbsファイルが
大量に自動生成されるようになってしまいました。
例えば、デスクトップにはDesktop .vbsというファイルが生成されます。
またエクセルを立ち上げる際にXLSTART.vbsファイルが毎回開くようになりました。

?@リンク設定解除
http://mroom.xii.jp/nikki/2012/09/post-89.html

および
?A下記の2文章

       Application.ScreenUpdating = False
       Application.DisplayAlerts  =False

Excelの初期化やScreenUpdating・DisplayAlertsの設定を
Trueに戻したvbaも走らせたのですが、どうも戻りません。

似たような症状をご存知の方がいらっしゃいましたら、
不勉強の身で恐縮ですが、解決方法をご教授いただければ幸いです。

津村

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＞?@リンク設定解除
http://mroom.xii.jp/nikki/2012/09/post-89.html

 何故、余所に誘導するんですか？
 クリックすればいいんでしょうが、気が進まないです。

 ここに載せられないですか？　無理にとは言いませんけど。

（半平太） 2019/09/13(金) 17:39

失礼いたしました。
下記の通りです。

Sub リンク設定解除()

Dim vntLink As Variant
Dim myBar As CommandBar, i As Long, c
Dim NewM As Variant, NewC As Variant

vntLink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsArray(vntLink) Then

    For i = 1 To UBound(vntLink)
      ActiveWorkbook.BreakLink Name:=vntLink(i), Type:=xlExcelLinks
    Next i
End If

End Sub
（つむ） 2019/09/13(金) 17:41

 そのコード自身がVBSファイルを作るのに「直接」関係しているとは思えないので、 
 リンクを解除イベントが、VBSファイルを作るプログラム
 (こちらではどんなプログラムなのか分からないですが）
 の実行トリガーになっているのかも知れないです。実際に確かめてはおりません。悪しからず m(__)m

 取り敢えず、解除している間だけイベントの発生を抑止してみたらどうですか？

         Application.EnableEvents = False
 ＞        For i = 1 To UBound(vntLink)
 ＞            ActiveWorkbook.BreakLink Name:=vntLink(i), Type:=xlExcelLinks
 ＞        Next i
         Application.EnableEvents = True

（半平太） 2019/09/13(金) 17:58

 ＞一定時間経つと各フォルダ名の付いたvbsファイルが

 そのvbs ファイルをメモ帳で開いたら どんなコードが書かれているんでしょう？

 自己増殖型のウイルスとか？

（渡辺ひかる） 2019/09/14(土) 12:19

コメント返信：

[ 一覧(最新更新順) ]

[[20190913161104]] 『フォルダ名の付いたvbsファイルが自動生成される』（つむ） ページの最後に飛ぶ

[[20190913161104]]　『フォルダ名の付いたvbsファイルが自動生成される』（つむ）　ページの最後に飛ぶ