会社のパソコンがXM/LAROUXA なるエクセルのマクロウイルスに感染してしまいました。 LANにつながっている複数の
パソコンに広がってしまいました。
ファイルサーバーはNTサーバーです。
クライアントの1台がメールでエクセルの添付ファイルを
受けておりまして、そのファイルが感染していたようです。
エクセルファイルを開くときマクロを無視・有効と聞かれてたのですが、有効にして開けてしまったようです。
そのファイルをサーバーに保存しており、他のパソコンで
開けて、他も感染しました。

駆除ソフトが常駐しておらず、不覚にも感染しました。
このXM/LAROUXA なるウイルスはどのような悪さをするの
でしょうか?

単純に駆除するだけで良いのでしょうか?
他に注意することはどのようなことがありますか?
駆除ソフトにはいろいろ有りますが、お勧めを
教えてください。

NTサーバーマシーンも感染してるのでしょうか?
わからないことだらけで困っています。
お助け下さい。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

XM.LAROUX.Aの名で知られるマクロウィルスは、感染したエクセルファイルからExsel自身に感染し、そこからさらに開いた全てのエクセルファイルに感染して行くウィルスですので、ネットワーク内のすべてのPCからウィルスを駆除し、その間にフロッピーに保存されたエクセルファイルからもウィルスを駆除する必要があります。

ただ、PCに対する破壊活動は行いませんので、それ以上の対応は基本的に必要ありません。
また、ご質問のケースの場合、NTサーバーにエクセルファイルが保存されているという事ですので、そういったファイルからウィルスを駆除しない事には元の木阿弥になってしまうので、NTサーバーもウィルスチェックを行うようにします。また、ウィルスチェックを行っただけではそのあとにユーザーによって作成/編集されたエクセルファイルが万が一ウィルスに感染していた場合いたちごっこになってしまいますので、ウィルスが完全にユーザーには多少不便でも使わないようにしてもらう必要があります。

以上、参考になれば幸いです。
    • good
    • 1
この回答へのお礼

ご返答ありがとうございます。
悪質なものでないことを知り少し安心しました。
感染したファイルの駆除は出来ましたが、
肝心のパソコン本体はこれからです。
手ごろなワクチンを持ってませんので、、、
週明け早々に対処です。

お礼日時:2001/05/19 20:23

すみません。

#3で回答したSarukanですが、
#3内3行目の「その間にフロッピーに保存された~」という部分ですが、正しくは「その間にフロッピー等外部メディアに保存された~」でした。フロッピーだけでなく、MOやCD-RWなどで保存されたファイルがある場合、それもウィルスチェックが必要ですので訂正致します。
    • good
    • 0

kazu-2000さん、こんにちは。



駆除するだけでいいです。

最近の市販のワクチンソフトで駆除できると思います。

ウイルス自体はかなり初期のマクロウイルスになります。

何をするものかというと亜種でなければ単純に自分自身を
エクセルのファイルに複製していくことしかしません。
特に破壊活動は行わないタイプだと思います。


personal.xlsというエクセルが起動するときに必ず読み込まれる
ファイルに最初に感染するので、一度感染すると
そのパソコンで作成したエクセルのファイル全部に感染します。
そのパソコンで開いたエクセルのファイルを編集するだけでも
感染します。
    • good
    • 0
この回答へのお礼

ありがとうございます。
一台のパソコンは駆除しましたがまさに、おっしゃる通りpersonal.xls が感染してました。

お礼日時:2001/05/19 20:25

Larouxの亜種です。


参考URLに駆除方法があります。
今回のウイルスは大したものでは在りませんが、しっかり駆除しましょう。

ウイルスに感染したら(ウイルスにもよります)
1.そのPCはLANからすぐはずす。
2.感染経路を早急に調べる。
3.電話にてサーバーへのアクセスを一時的に止めてもらう。
  メールにウイルスが付いていったら大変です。

ノートンのアンチウイルスがお勧めです。
サーバーにも常駐できますし、サーバーもチェックできます。

参考URL:http://www.trendmicro.co.jp/virusnews/laroux/lar …
    • good
    • 0
この回答へのお礼

ありがとうございました。
一部の駆除は終わりましたが、まだ残っています。
全く初めてのケースで、不安でしたが、少し安心しました。

お礼日時:2001/05/19 20:27

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qスパムメールの添付ファイルを開いてしまったら。

質問させて頂きます。
今日、スパムメールと思われるメールを、取引のメールと勘違いし、開いてしまいました。
更に、添付ファイルも開いてしまいました。

添付ファイルは、開くのボタンを押した後に、パソコンに入っているウィルス対策のソフトの警告が出たので、実際にそのファイルの中身は見なかったのですが、
これは、ファイルを開かずに済んだ、ということになるのでしょうか?

また、パソコンがウィルスに感染してしまったかどうか調べる方法はあるのでしょうか?

パソコンが苦手なため、色々と自分なりに検索して調べてみたのですが、良く分からなかったので質問させて頂いております。
何卒よろしくお願い致します。

Aベストアンサー

質問内容を素直に解釈すれば
ウイルス対策ソフトによって防御(ブロック)されたのでウイルスに感染はしていません
ということになるかと思います

そのメールがその後どう扱われるかは使ってる対策ソフトや
設定によって変わってくるので省略
  HDD上に残っているのであれば再アクセスで再度の検出がされますし
  ウイルス対策無効にして再アクセスすれば見事感染  ということになります

ウイルスの挙動も様々ですので省略

検出されたウイルス名が出たと思うので検索するなりソフトメーカサイトに飛べば
情報を得られるでしょう

Qウイルスメールを開いてしまった!?どうすれば?

検索したのですが、多すぎたので質問させていただきます。
最近毎日、一通ほど、異様にでかい容量のメールがきます。
怪しいのでいつも削除しているのですが、
たまーーーに、開いてしまうことがあるんです。
英語の文だったり、空文だったり。。
これはやばいのでしょうか?
一様、ウイルスバスターをつけてますし、ファイヤーオールも入ってます。
なにか対策法はありますか?
気づかないうちに感染ということもあるのでしょうか?
winxpを使っています。
どんなことでも結構ですのでアドバイスお願いします。
(o*。_。)oペコッ

Aベストアンサー

例えば、トレンドマイクロの

「WORM_KLEZ」
「感染マシンの修復」
http://www.trendmicro.co.jp/klez/tool.asp

から抜粋してみました。

**
ウイルスの侵入と同時にウイルスバスターなどで検知し、メッセージが出た場合は、マシンには感染していないのでご心配いりません。しかし、ウイルス対策ソフトを導入していなかったり、導入していてもパターンファイルが最新になっていなかったりしてウイルスが感染してしてしまった場合は、次の理由で対処が非常に困難です。
**

これを読んで、客観的な判断をしてください。

ワタシが補足するまでもないのですが、「ウイルスバスターなどで検知し、メッセージが出た場合」は、感染はありませんと案内されています。

「導入していてもパターンファイルが最新になっていなかったりしてウイルスが感染してしてしまった場合」は、感染していると案内しています。

でも「ウイルスメール」として質問されているので、メッセージが表示されたのですよね?
その場合、「検疫」されているのなら「削除」すればいいでしょう。
(詳細は、取扱説明書を確認してください。)
それとも、自分の目で判断されたのでしょうか?

ウイルスバスターが正常に動作しているようでしたらパターンファイルを最新にして、全ドライブ,全ファイルのスキャンを強くお勧めします。

それと、不審なメールは絶対に開かないようにしましょう。
ウイルスバスターが対応していないウイルス(新種や亜種など)なら、感染します。

ご参考です。

参考URL:http://www.ipa.go.jp/security/awareness/end-users/end-users.html

例えば、トレンドマイクロの

「WORM_KLEZ」
「感染マシンの修復」
http://www.trendmicro.co.jp/klez/tool.asp

から抜粋してみました。

**
ウイルスの侵入と同時にウイルスバスターなどで検知し、メッセージが出た場合は、マシンには感染していないのでご心配いりません。しかし、ウイルス対策ソフトを導入していなかったり、導入していてもパターンファイルが最新になっていなかったりしてウイルスが感染してしてしまった場合は、次の理由で対処が非常に困難です。
**

これを読んで、客観的な...続きを読む

Qエクセルのウイルスチェックについて

仕事でエクセルを使用しています。取引先に2HDのフロッピーで資料を提出するのですが取引先からウイルスチェックをして提出するように言われたのですがその辺無知なので詳しい方教えてください。

Aベストアンサー

はいよ。以下でやったほうがいいよ。信頼性高いから。

http://www.kaspersky.com/virusscanner

ドライブに入れてスキャン。
あと、ちょっと気になったんだけど。今の時代、ウイルススキャンをどうやったらいいかぐらい知らないと困りますよ。また、既存セキュリティーをすり抜けてしまう攻撃手法もあるのですよ。疎いとその分リスクが増します。

Q自分のPCのコンピューターウイルス感染の確認方法?

自分のパソコンがコンピューターウイルス感染しているかどうか確認するにはどうすればよいですか?
ご存知の方、確認方法を教えて下さい

Aベストアンサー

ウイルス対策ソフトをインストールしていれば、ソフトを使いスキャンし、ウイルス対策ソフトをインストールしていなければ、オンラインウイルススキャンを使用するしかないと思います。
オンラインウイルススキャンは、下記サイトで利用することが出来ます。
http://www.trendmicro.co.jp/hcall/index.asp

ウイルス対策ソフトをインストールしていないのならば、AVGというウイルス対策ソフトのフリーウェア(英語)をインストールすることをおすすめします。

参考URL:http://www.bh.wakwak.com/~ham-ham/index.html

QEXCELで入力したものが違うシートにコピーされるようにするには・・

EXCELで、あるシートで入力した数値や文字が違うシートにそっくりコピーされるようにしたいのですが・・・
違うシートに同じ数値や文字をいちいち入力するのがめんどうだったので・・・(あと、入力間違えをすることもあると思ったので)
どなたか教えてください。宜しくお願い致します。

Aベストアンサー

同じブック間でも違うブック間でも、
リンク貼り付けという方法があります。

多分ご質問では、最初のページに「2006年」と入力したら
次からのページの同じ場所に「2006年」と表示させたい、と、こんな感じではないでしょうか?

あるシート(貼り付け元)の範囲を選択し、コピーします。
違うシート(貼り付け先)の1セルを右クリックし、形式を選択して貼り付けで出た窓の下に
「リンク貼り付け」ボタンがありますから、それを押して下さい。

あるシートに入力した文字が違うシートに表示されます。
ただし書式は、違うシートのセルの書式の通り表示されます。
また、あるシートのセルに何も入力されていなければ、
違うシートの該当セルには「0」と表示されます。
この「0を表示しない方法もありますので、
具体的にどのシートのセル番地からどのシートのセル番地、という風に書いてください。
1つのセルのみ貼り付ける場合と、2つ以上の範囲を貼り付ける場合で
貼り付けられ方が微妙に違います。

さて、上手に貼り付けられたら、違うシートに貼り付けられたそのセルを、
また別なシートに次々にコピーしていきます。
1回リンク貼り付けをしたら、このように使いまわすことができます。

あまりにも情報が少ない中回答させていただいたのですが、
上記の中で当てはまる部分があったでしょうか?

実際貼り付けてみて、その後を報告してください。

同じブック間でも違うブック間でも、
リンク貼り付けという方法があります。

多分ご質問では、最初のページに「2006年」と入力したら
次からのページの同じ場所に「2006年」と表示させたい、と、こんな感じではないでしょうか?

あるシート(貼り付け元)の範囲を選択し、コピーします。
違うシート(貼り付け先)の1セルを右クリックし、形式を選択して貼り付けで出た窓の下に
「リンク貼り付け」ボタンがありますから、それを押して下さい。

あるシートに入力した文字が違うシートに表示されます。...続きを読む

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

Q【エクセルVBA】「インデックスが有効範囲にありません」というエラーがでます

こんにちは。VBA初心者ですが、下記コードを実行すると
エラーが出てしまいました。

シート(シート1)のセルから別シート(シート2)のセルに
値のみコピーするVBAを組んでいます。
適宜、シート1に入力したものを読みこませていきたいので
変数を使用しています。

-------------------------------------------------------------
Sub セルのコピー()

Dim X As Integer

X = 3
Y = 2
Do While Cells(X, "A").Value <> ""
Sheets("シート1").Cells(X, "A").Copy

Sheets("シート2").Activate
Sheets("シート2").Cells(Y, "F").PasteSpecial _ Paste:=xlPasteValues ⇒エラー対象
Application.CutCopyMode = False

X = X + 1
Y = Y + 1

Loop

End Sub

------------------------------------------------------------
つまり、シート1のA3セルを先頭にA4,A5,A6・・・と続くセルの値
をシート2のF2を先頭としたセル(以下、F3,F4・・・)に値のみコピー
していきたいのですが。。

実行すると「インデックスが有効範囲にありません」というエラーが
でます。デバック対象は上記、「⇒エラー対象」の構文です。

変数の設定の仕方がおかしいのでしょうか。。
ご教示のほどよろしくお願いいたします。

こんにちは。VBA初心者ですが、下記コードを実行すると
エラーが出てしまいました。

シート(シート1)のセルから別シート(シート2)のセルに
値のみコピーするVBAを組んでいます。
適宜、シート1に入力したものを読みこませていきたいので
変数を使用しています。

-------------------------------------------------------------
Sub セルのコピー()

Dim X As Integer

X = 3
Y = 2
Do While Cells(X, "A").Value <> ""
Sheets("シート1").Cells(X, "A").Copy

Sheets("シート2").Activat...続きを読む

Aベストアンサー

>Sheets("シート2").Cells(Y, "F").PasteSpecial _ Paste:=xlPasteValues ⇒エラー対象
で、「PasteSpecial _ Paste:=xlPasteValues」 の “_” を消去してください。
また、
 Sheets("シート2").Activate で "シート2" を Activate にすると、 Do Loop の頭に返ってきたとき、
 Do While Cells(X, "A").Value <> "" の Cells(X, "A") は "シート2" の Cells(X, "A") を見に行きますので、 思っているような動作はしません。
 最後の Loop の前に、 Sheets("シート1").Activate を入れるか、While の後の Cells(X, "A").Value の頭に、Sheets("シート1"). をつければ、この問題を回避することができます。

コピー先のシートは、アクティブにしなくても、ペーストする方法があります。

あなたのコードを少し変更します。

 Sub セルのコピー2()
   Dim X As Integer, Y As Integer

   X = 3
   Y = 2
   Do While Cells(X, "A").Value <> ""
     Sheets("シート1").Cells(X, "A").Copy Destination:=Sheets("シート2").Cells(Y, "F")
     X = X + 1
     Y = Y + 1
   Loop
   Application.CutCopyMode = False
 End Sub

注) 使っているブラウザの見る条件によって、「Sheets("シート1").Cells(X, "A").Copy Destination:=Sheets("シート2").Cells(Y, "F")」と「Destination:=Sheets("シート2").Cells(Y, "F")」が2行になったように見えることがあるかもしれません。 2つのコードはスペースを1つはさみ、続けて書いてください。

変更したコードの場合、"シート1" が常時表示されたままになります。

行数が200行くらいとのこと、速度を早くしたい場合は、最初に
 application.ScreenUpdating=False
最後に、
 application.ScreenUpdating=True
を加えます。

なお、シート名は "Sheet1" ですか、"シート1"ですか、どちらかに揃えましょう。 、"シート1"と、"シート2"がブックの先頭から順になっているときは、シート名を使わなくてそれぞれ Sheets(1)、Sheets(2) でもいけます。 (1)、(2) は左から 1番目のシート、2番目のシートという意味です。

試してみてください。

>Sheets("シート2").Cells(Y, "F").PasteSpecial _ Paste:=xlPasteValues ⇒エラー対象
で、「PasteSpecial _ Paste:=xlPasteValues」 の “_” を消去してください。
また、
 Sheets("シート2").Activate で "シート2" を Activate にすると、 Do Loop の頭に返ってきたとき、
 Do While Cells(X, "A").Value <> "" の Cells(X, "A") は "シート2" の Cells(X, "A") を見に行きますので、 思っているような動作はしません。
 最後の Loop の前に、 Sheets("シート1").Activate を入...続きを読む

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

Qエクセル ある条件でセルの塗りつぶし。

エクセルを勉強中の初心者です。
あるセルに数値がある場合に、隣の空白セルを特定の色で塗りつぶしたい。

例えば黄色に塗りつぶした空白セルをコピーして他のセルに貼り付けると、貼り付けたセルは黄色になります。

やりたいことは、B2に数値がある場合にC2を塗りつぶしたいので、次のようにやってみました。

予め空白のE1を黄色にしておく。
C2に以下の式を入れましたが、黄色のE1を貼り付けることにはなりませんでした。
=IF(B2="","",E1)

関数式はあくまでも数値を扱うもので、根本的に間違っていたようです。

ある条件であるセルを塗りつぶすにはどうすればよろしいでしょうか?
よろしくお願いします。

Aベストアンサー

こんばんは!

数式によって「書式」は表示できませんので、
今回の質問の場合には「条件付き書式」を使います。

お使いのExcelのバージョンが判りませんが・・・

Excel2007以降の場合は
C2セルを選択 → ホーム → 条件付き書式 → 新しいルール → 「数式を使用して・・・」を選択 → 数式欄に
=B2<>""
という数式を入れ → 書式 → 「塗りつぶし」 → 好みの色(黄色)を選択しOK

Excel2003以前の場合
C2セルを選択 → メニュー → 書式 → 条件付き書式 → 「数式が」を選択 → 数式欄に
=B2<>""
とし → 書式 → パターン → 好みの色を選択しOK

これで大丈夫だと思います。m(_ _)m


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング