人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

マクロに不正プログラムが仕掛けられていないか。
20以上あるファイルを1シートにまとめるため、ネットで見つけた下記2つのプログラムを使おうとしたところ、周囲から「情報漏えいの罠が仕掛けられていないのか」と指摘されました。どなたか判断いただけませんでしょうか?

●複数ファイルを「1ファイル複数シート」にまとめるマクロ
Sub matome()
Application.ScreenUpdating = False
Set mb = ThisWorkbook
myfdr = ThisWorkbook.Path
fname = Dir(myfdr & “\*.xlsx”)
Do Until fname = Empty
If fname <> mb.Name Then
Set wb = Workbooks.Open(myfdr & “\” & fname)
wb.Worksheets.Copy Before:=mb.Sheets(mb.Sheets.Count)
wb.Close
n = n + 1
End If
fname = Dir
Loop
Application.ScreenUpdating = True
MsgBox n & “まとめ終了”
End Sub


●複数シートを1シートにまとめるマクロ
Sub CombSh()
Dim i As Integer
Dim eRow As Long
Dim mySh As Worksheet

ActiveWorkbook.Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "統合"
Set mySh = ActiveSheet
mySh.Range("A2:AA2").Value = Sheets(2).Range("A2:AA2").Value
For i = 2 To Sheets.Count
Sheets(i).Select
eRow = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(3, "A"), Cells(eRow, "AA")).Copy Destination:=mySh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Next
mySh.Select
Set mySh = Nothing
End Sub

●質問者: sapporobeer
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● degucho
●100ポイント

特に見当たらないと思います。
たとえばメール送信の処理なんかがあったら可能性はありますが
どこだか指摘できない周囲の人が無責任な感じしますね。


sapporobeerさんのコメント
ですよね。。。 ただ、無知の悲しいところ、それを反論するための知識は私には持ち合わせていなかったんですよね、、、。ありがとうございます!

2 ● iku7
●390ポイント

昨今のネット社会の状況など踏まえ、社内のセキュリティ的に言って「周囲からの・・指摘・・」は正しいと思います。むしろ知識がないので、安全かどうかわからないので指摘しているのであって、なにも言われないよりも結果的には良いのではないでしょうか。またなにもわからずコピペで動かしちゃうよりも、こういう場にご質問されるのも、事前に情報漏えいを防ぐのには良いのではないでしょうか?信用できるかどうかということであれば、最終的な判断はそのような第三者的なチェック機関(実際あるかどうかは存じませんが)に依頼されたほうが良いかも。また表題のマクロ程度であれば、一般的な社内SEの判断で十分です。
あと、このマクロ特に問題ないようです。しいて言えば、処理中エクセルファイル開いていますが(*.xlsx)ここでマクロファイル(*.xlsm)となる場合注意されたほうが良いかと。


3 ● ken3memo
●10ポイント

既に良い回答 や コメントが出ているのでポイントは0にしてください。
蛇足ですが、
サンプルコードを打ち込まなくてもよいように、
ファイルとしてダウンロード可能なサイトも存在していると思います。
三流君VBA:VBA Outlook リッチテキスト形式のメール で グラフを送る
↑手前味噌の私のサイトですが、
サンプルコードと一緒に
ダウンロードして実行可能なファイルを提供しています。
f:id:ken3memo:20170625180557j:image
↑ダウンロード可能なファイルが置いてあります。

この作者が(ここでは、私ですが)
悪意のある作者で、
解説・表示されている以外のコードを忍ばせていたら・・・

もしくは、この作者の不注意で
悪意は無くても、ウイルスに感染していて、
アップしたファイルが感染していたら・・・

など、いろいろダウンロードファイルは危険が0パーセントではないのかも。
表示してあるコードを検証して
コピペで使用するのは良いと思いますが(なかなか説得が大変そうですが)
ダウンロードしたファイルは注意かな。

質問はネット上のコードの話なので、
ダウンロードファイルについての蛇足回答がかなりズレてますが、
私もこのダウンロードファイルは安全ですか?
と不定期で質問をいただくので、
ネット上に転がっているコードの使用はみなさん気を使われているんだなぁと思いました。

※知らないコードをコピペで使うのは、確かに危険だけど、
検証・確認して 使えば OKだと思います。←それが難しいかもしれないし、

長々 ズレた回答すみませんでした。

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ