【Excelゆる話】"意味が分かると怖いマクロ"を部長が実行してしまいました…
Рет қаралды 125,393
2 жыл бұрын絶対やらない方がいいです
＜動画リクエスト、質問＞
peing.net/ja/chin_vpan
＜チャンネル紹介＞
ExcelやVBA中心。
時には真剣に、時には楽しく【ゆっくり動画】を作っています
/ @wachi-excel
＜もしもマクロ(VBA)が使えたら？＞
• 【もしもマクロ(VBA)が使えたら？】シリーズ
1〜3分程度のゆるい動画
誰かのVBA挑戦へのきっかけになりますように
＜VBA100本ノック解説動画＞
初心者向けに解説中！
• 【まとめ版】VBA100本ノック動画
＜音楽・効果音＞
甘茶の音楽工房 さん
amachamusic.chagasi.com/terms...
効果音ラボ さん
soundeffect-lab.info/sound/an...
#Excel
#VBA
#デザインの変更
#Excel茶番
#わちょんのゆっくりIT
@booby4065 2 жыл бұрын
部長は偉いなぁ これをFor eachでフォルダ内の全てのファイルに設定するなんて所業を思いつかないのは偉い
@user-nu4xi5ev3c 2 жыл бұрын
VBAを学ぶ前にも見たことがあって、その時は全然意味わかんかったんだけど今は意味がわかることに感動している。
@user-rm1rk8br6l Жыл бұрын
これ見ると、パスワードに英数字どっちも入れろとか大文字入れろとかの重要性がわかる。
@user-ff9un5zb6x 2 жыл бұрын
数字4桁程度のパスワードなら、いざという時にこうやって簡単にこじ開けられるから、ある意味便利だよ。
@user-tt8bk6zj6v 2 жыл бұрын
ブルートフォースでなんとかなるかな。 一回あたりの処理が大したことなかったらcudaで20分ぐらいで開くかもね
@v24tn45n8u 2 жыл бұрын
簡単...?
@user-cg7gj5ef3x 2 жыл бұрын
ランダムでパスワードを作成して閉じるプログラム。こんなプログラムを組む人に脱帽です。 シンプルなコードですが、驚異の破壊力ですね！
@user-mb5rh9uf3c 2 жыл бұрын
面白かったです❗️ vba初心者なので、感心しました！
@user-vr2ld9xg5w 2 жыл бұрын
意味が解った途端くっそ恐ろしいと感じた…
@kusamochi_mochimochi 2 жыл бұрын
半年前はSUMすらわかってなかった私ですが、 このチャンネルを見てから電卓を使わずに家計簿をつけられるようになりました
@umehachi6 2 жыл бұрын
後半のコードもパスワード解読だから、 地味にやばいな…。つまり…、 前半…悪用厳禁 後半…悪用厳禁 この動画全体…悪用厳禁！
@user-tw7zz8br6q 2 жыл бұрын
VBAはよくわからないけど、他の言語使ってるとなんとなく挙動わかるね
@NonomGpm 2 жыл бұрын
強いて挙げるなら、開くのに成功した時のパスワードをどこかに保存しておくといいかも？
@zerocode9660 2 жыл бұрын
最適解じゃないかな、少なくともVBA上では。 アプリの仕組み上excelで実行させる他ないのでVBA一択になるだろうし、VBAに便利なメソッドが用意されてそうには無いし。ブルートフォースが一番。 accessからの外部接続とかならもうちょいあれこれ出来るかも？
@user-bp9dq8cz6p 2 жыл бұрын
なるほど。これがVBAにおける一種のブルートフォース攻撃なんですね。わかりました😅
@user-ps8wg3sg7n 2 жыл бұрын
昔ちょっとだけ齧った程度の知識じゃ理解できませんでした…でもやっぱりVBAって面白い
@user-it7sk7dp4x 2 жыл бұрын
vbaわかんないけど多分 コード自体は このファイルに※正確には対象指定 パスワードとして 1~9999のどれかを設定し ファイルを閉じる (確認メッセージ出さない設定付き) って内容で それを実行したからファイルにパスワードかかっちゃったので それを 1~9999総当りでパスワード入力 ってやったってことだと思います
@user-ci7og8cm9u 2 жыл бұрын
これにアルファベット，記号を加えるとえらい組み合わせ&コードの長さになりますよね❓
@user-ks2nn5fb3e 2 жыл бұрын
部長の”凄み”が分かる動画。 実際この人パソコン素人じゃ無いだろ・・
@user-ci7og8cm9u 2 жыл бұрын
すっ凄すぎる‼️😱もはやExcelを超越してWindowsを動かすプログラムになってしまった😓 もはや、意味を理解することまでしか追従出来ない😑
@ryuryo704 2 жыл бұрын
なんかアレですね、ドラマでよく見るハッキングみたいｗ
@ja5921 2 жыл бұрын
For Each wb In Application.Workbooksでそれを実行したら一種のテロですねｗ
@user-xf6eo3jt9e 2 жыл бұрын
と言うことはパスワードがかかってる、エクセルファイルがあり、特定の者以外パスを知っていなくても、解除可能ってことか。
@user-kr6vc6px5r05 2 жыл бұрын
乱数は１つだけだし、 パスワードは数字だけだから楽よね。
@user-dj7qt6sn5t 2 жыл бұрын
部長ほんとすき
@UltraChuken 2 жыл бұрын
こんなに簡単にパスワードが解読されてしまうのも 最初のパスワード設定が1～9999と簡単だったから。 もし日本語や記号とかもパスワードに使える文字に入ってきたら もっと大変だったかも。
@user-jx1fk7mh6x 2 жыл бұрын
ɠѠ䃠瀷 とかだったら、大変でしたね...
@TV-tu4mw 2 жыл бұрын
Pythonの時の直感？みたいなので一つ分かれば大体分かる(読めるだけ)
@tashi3144 2 жыл бұрын
for to next使わなくてもon error gotoで良いのでは？
@y._.._..urryc_. 2 жыл бұрын
C#でUsing でExcel系のを使えば 解除ソフト行けそうですね For文使えば行けるかな
@FuyunoKotatsu 2 жыл бұрын
昔、パスワードを無理やり上書きする方法があったなぁ…… xlsmでも有効か分からないけどw
@warokihami 2 жыл бұрын
意味がわかると怖いというか、意味不明過ぎて（明らかな悪意でコードが書かれていて）怖い。
@0813kiki 2 жыл бұрын
xlsxの拡張子をzipとかに変えて、中のファイルをごにょごにょすればどんなパスワードを書かれてても消せますね。
@min-owbdu 2 жыл бұрын
え…VBAってこんなにクセつよいん…？
@user-sz2ko6lz6w 2 жыл бұрын
パスワードが「0000」の可能性……
@hisanak3071 2 жыл бұрын
開けるスクリプトを渡さず閉じてしまおう
@rina11922 2 жыл бұрын
まぁあえていうならこの状態でロック解除できても、パスワードわからないんじゃないかな？ 新しいシートのA1にiを記入しておくといいんじゃないかな
@user-nk6ow6cl2o 2 жыл бұрын
再保存する時にpw削除
@user-ii2he8xu4e 2 жыл бұрын
Excelのパスワードってバイナリエディタで編集すると簡単に変更できるんじゃなかったっけ…？ 0000ってパスワードを設定したエクセルのハッシュ値で置き換えると、置き換えられたエクセルのパスワードも0000になるみたいな…
@zerocode9660 2 жыл бұрын
なる。office全般それ。正直何とかして欲しい。
@kino785 2 жыл бұрын
勉強になったけど、ところでなんでそんなこと知ってるんや？そんな有名な話なんか？
@dmcreatorjapan 2 жыл бұрын
これ、つまり数字のパスワードって簡単に解読されてしまうってことか。 だから最近は数字、アルファベット、アルファベットでも1文字は大文字など組み合わせないと登録できなくなってるんやな。
@Shippur010 2 жыл бұрын
報復にエクセル資料にコレとボタンを追加しておけば大惨事になるに違いない ボタンの名前「保存する」
@user-rg3bl9kw5j 2 жыл бұрын
Openメソッドの一段下に If Err.Number 0Then Exit Sub End If Err.Number = 0 と入れたら途中で開いた後に余計なことしないから少しだけ終わるの早くなるかな？
@reinejy 2 жыл бұрын
それだとエラー出たら（パスワード違っていたら）終わっちゃいますよ やるんならOpenメソッドの下に If err.Number = 0 Then '開いたときにエラーが出なかったら↓の処理 Debug.Print "Password:= " & i Exit Sub ’このForのループの後に処理を入れたかったらExit Forで End If Err.Clear '次のエラーが発生する前にいったんクリアする みたいな感じで、開いたらイミディエイトウィンドウにパスワードを記録して終了するって感じ
@zerocode9660 2 жыл бұрын
開いたら止めたいなら例えば下記の様にすれば良い。 for i = 1 to 9999 err.clear workbooks.open filename:=fn,password:=i if err.number = 0 then exit for next
@user-ym5fj3lk7m 2 жыл бұрын
尼○市職員「こ、これだー！」
@user-cz3cm1ht8m 2 жыл бұрын
パスワード入力を一定回数連続してミスるとファイルが消えるとか
@lockg.g.6193 2 жыл бұрын
4桁で良かったね。 一日あれば余裕。
@user-ic1lu9lw4p Жыл бұрын
アルファベット込みパスワードファイルを開封するVBAもお願いしたいです
@user-xf6eo3jt9e 2 жыл бұрын
なるほど、パワハラ上司への嫌がらせはこうするのか
@rarchan5944 2 жыл бұрын
3:13 理不尽すぎぃ！
@200xpentium5 2 жыл бұрын
ブルートフォース攻撃ですね... まあ、これが通用するのは限界がありますけどね。 4桁パスワードなら最悪10,000回,平均5,000回程度の試行で開けられますし。
@deanna6164 2 жыл бұрын
なぜ4桁パスワードで最悪1000回の試行なんですか？
@200xpentium5 2 жыл бұрын
@@deanna6164 素で間違えた。10,000通りですね。
@kozawa936 2 жыл бұрын
機密情報(22KB)
@dgrgasshurn 2 жыл бұрын
22KB(ポケモンランクマッチシーズン24のポケモンシングル対応使用率ランキング)
@user-bo2sp3ri6u 2 жыл бұрын
つまり機密情報=ポケモンのランキング.....はっ！もしや部長の会社はニンテ
@user-kg8js4vy9c 2 жыл бұрын
エラーじゃなかったらメッセージボックスで表示したら良さそう
@ccorn4221 2 жыл бұрын
部長、絶対部下を試してるよな？
@02359 2 жыл бұрын
VC++は触れたことあるけどVBAは触れたことないなぁ
@chan.w5370 2 жыл бұрын
授業でExcelのマクロを習ってる？んだけど、その担当の先生が｢聞くより、自分で調べろ｣って毎回怒ってくる。授業って何ですか？教えて下さい……
@pickupline28 2 жыл бұрын
あー…… 先生の言うこと、分かる気はする…… 結局、プログラムを書くようになると、ある程度「自分でググって情報をかき集めて、頭の中で再構築して正解に近づく能力」も大事になってくるから、その力を身につけろって意味かな？
@tokuyon2000 2 жыл бұрын
@@pickupline28 先生「どうやって調べたらいいと思う？」 →生徒回答 →「それで調べてみなさい」or「こういう検索のしかたの方がよいだろう」 ってな流れなら生徒に考えさせることもできるし授業としても有意義なものになるかな？
@02359 2 жыл бұрын
独学でC++とか学んできた人だから先生の気持ちも少しはわかるけど だけどやはり学校だから調べ方教えるなりDocsの見方教えるなりしないといけない気がもする。金払ってるんだから聞かないと無駄じゃない？
@assassin-hl5do 2 жыл бұрын
1から順にではなく、ランダムでパスワード入力出来たら速いんですかね？
@renhoney2048 2 жыл бұрын
可能だろうけど同じ数をPassとして試しちゃう可能性がある（てか多分そうなる）から早くはならないとおもう。
@katsukun1958 Жыл бұрын
Dim cells as Integer と打って実行すると、欠陥を持ったxlsmファイルに生まれ変わります。 （コマンド「cells」をユーザ変数に定義してしまったからーです） Dim Count as Integer もやりがち。（1,2,3と数えるためのユーザー変数として使おうとして墓穴を掘る）
@nnenko183 2 жыл бұрын
これ４桁数字とわかってたらあっさり総当たりされそうだけどわからん状態(英数記号入れて長さ上げて何回かループ入れることで生成とか)でやられたり総当たり対策やられたらまあ・・・きちいなぁ
@Kyadellack 2 жыл бұрын
確か4桁の数字の中にアルファベット1文字加えられただけで10倍以上時間かかるとかって聞いた事あるな…
@labi3230 2 жыл бұрын
@@Kyadellack 数字は0〜9の10パターンしかないんで10×10×10×10=10,000通りで済みますが アルファベットを加えると10+26=36パターンになりますからね…どの桁がアルファベットかも分からないので 36×36×36×36=1,679,616通り
@user-jx1fk7mh6x 2 жыл бұрын
もしUnicodeの一覧からランダムってなったらやばい。𐎰や≩とかから選ばれるんでしょ？
@nnenko183 2 жыл бұрын
@@user-jx1fk7mh6x それは入力が困難なのでパスワードとして実用的かどうかが問題になりますね
@nnenko183 2 жыл бұрын
困難というか面倒
@user-xt6go9sz1o 2 жыл бұрын
4桁のパスワード総当たりでも10分かかるのか……！？
@syunkunTrader 2 жыл бұрын
kzfaq.info/get/bejne/fKp-rZWfu87Hlpc.html xlsまでは、Windows95でも動くようにダンプに近い形式になっていましたが、xlsxやxlsmになってからは、xml方式をzpi圧縮しているだけのファイルになっていますね。
@takumih7276 2 жыл бұрын
VBAでできること
@user-fo5br7vi6o 2 жыл бұрын
因みにですが、この事象になってもExcelファイルを構成するxml内に書かれているパスワードのコード消すと普通に使えますよ。
@NankotsuKomb 2 жыл бұрын
読み取りパスワードでは使えない気が
@reinejy 2 жыл бұрын
それはシート保護のパスワード
@user-fi1rv7jy5p 2 жыл бұрын
PADで力押しを想像してたけど違ったw
@tile_shirokuro 2 жыл бұрын
python使えば一瞬で終わる
@user-wl1rx1lg1f 2 жыл бұрын
あ〜、cmd にも凶悪なコマンドあるなぁ。cドライブを即時消去するやつ。
@user-nf4ou6lt5i 2 жыл бұрын
コンピュータ触ったらいかん人種やな
@user-ox5rq8wc3o Жыл бұрын
シーター駐車場代⇒が鵜「」コミュニケーション「」「54」green＝ｓター シーター
@pai86D 2 жыл бұрын
終了時に自動実行するようにしておくと。
@shinya092424 2 жыл бұрын
もっと早くできるかちょっと挑戦してみたけど、所詮俺も素人。 ダメだった。Application.ScreenUpdating = False（画面更新の停止）とApplication.Cursor = xlWait（マウスポインタの固定） くらいしか思いつかなかった。 そして全然早くならなかったwww
@キエリカ 2 жыл бұрын
その辺りは画面更新等が発生しないと影響が無いですね。 一番簡単な短縮方法はファイルを開けても処理が継続されるので、開けたら処理を終了するようにすることではないでしょうか？
@PASSWORD_123 2 жыл бұрын
zip変換して、PASSWORD解除すればいいんじゃね？
@zerono.7760 2 жыл бұрын
これさ、アルファベット含んでたら詰みよね?
@user-lq5lw4us9t 2 жыл бұрын
わかりやすく数字にしているだけで0～9、A～Zの総当たりにすれば大丈夫ですよ。 膨大な時間がかかりますけどね
@Scr_MIYUKINNGU 2 жыл бұрын
プログラマー「ん？え？あ？んーえー総当たり攻撃で無理矢理パスワード解除するか。」 ド素人「ああああああああああ！もうこれはファイルを消してやり直すしかない…」 玄人「…総当たり攻撃っての知ってるけどやり方わかんない。困った☆」 わちょんのゆっくりIT(偏見)「よし。動画ネタにするか。処理はまた今度。」 ワイ「明日本気出すからさぼります。」 サボり魔(ネタ)「1年後に本気出すので今年はさぼります。」 ちなみに総当たり攻撃は別名ブルートフォース攻撃とも言います。
@user-pz8cu3dn1u 2 жыл бұрын
エクセルのパスワードって無意味なんだね
@mato315 2 жыл бұрын
無意味は言いすぎかと 物置の南京錠程度の意味はあるかと。
@galacticpretty 2 жыл бұрын
와따시와 간고쿠데쓰
@cookieheavy3044 2 жыл бұрын
マクロ無効で開く
@marumaruri3016 2 жыл бұрын
え・・・今回、目の前でコードを書いた状態で数字の４桁ランダムとか「さいよわ」なパスワードだからいけますけど、パスワードかかってるんだったら どんなコードが書かれてるかすらわかんないのでは？ 普通にパスワードは文字列や下手したら特殊記号含めて、最低８文字とかがデフォじゃないですかね。 そもそも、こんな「ほぼなんの意味も使いみちもない」コード書く機会があるかな🙄
@user-ug1ni2xq6z 2 жыл бұрын
大文字小文字特殊記号も含めて総当たりするだけですが… こういうのってファイルのパスワードを忘れた時にやるから、もうちょっと工夫した方が早くはなりそうですね(自分がよく使う言葉で辞書攻撃するとか)
@_5742 Жыл бұрын
@@user-ug1ni2xq6z 今回4桁で10分だったので、1桁増える(5桁)だけでその10倍(100分)かかることになります 8桁ともなると、、、 まあ「入れそうなキーワード」が決まってるなら直接手で試したほうが早そうですね
@user-ei3un2pk4n 9 ай бұрын
4桁数字はキャッシュカードやマイナンバーカードにも使われているから危ないね。
@user-ze2ht7bq3u Жыл бұрын
そうだよな、普通にVBA組んでパスワード解除しようと思ったらそりゃエラー出るよなｗ
@tukarin 2 жыл бұрын
少しかじったからこれは分かる さいしょの Dim i As long これはlong型(整数値を格納するもの) のiと言う変数を作る。 次の For i=1 To 9999 ------ Next i はFor ○○ ~Next のところまでをiに１を足しながら９９９９迄行くことを示している。iがもし９９９９まで行ったらこのループを抜けることにしている その中身のWorkbooks.open(~) は動画の通りそのworkbookを開くこと。 実際には 最初のworkbooksは範囲を指定していて、そこに対してOpen(開く動作)を指定している。引数にpassword,ファイルのパス名 C:¥◇おふざけ¥機密情報.xlsm を指定しているから、これを改良するなら 最初に Dim file As string file = inputbox("どのファイルを開きますか?") 的なことをいれた方がいい気がする。 (総当たりでは) (このままこのVBE のコードが使えるとは限らないよ) 追記 Workbooks.open(file,,, i) とする