ページコンテンツ
bookの名前が変更されたら開かなくする方法
ふと思いついただけなので暇つぶしにでも見てもらえると嬉しいです。前に会社で同僚にファイル名を変更されたことがあったのでその対策をと思いまして。bookの名前が変更されたら開かなくする方法を紹介いたします。VBAを知らない方なら効果てきめんだと思います。
bookの名前が変更されたら開かなくするコー
非常にシンプルなコードです。【Book1.xlms】というファイル名じゃない場合に動くコードです。
ちなみにコード中の【ThisWorkbook】とは【このコードが書かれているBook】という意味です。
1 2 3 4 5 6 7 8 9 10 11 | Private Sub Workbook_Open() ’※ If ThisWorkbook.Name = "Book1.xlsm" Then Else MsgBox "bookの名前が変更されています、【Book1】に直してください" ThisWorkbook.Close.SaveChanges:=False ’保存しないで閉じる End If End Sub |
注意
このコードは開いた瞬間に実行されるコードですのでファイル名が違うと開かなくなりますのでご注意ください。
もしファイル名を忘れてしまい開けない場合は場合はキーボード左上にある【Escキー】を押しながら開くとプログラムが中断されて開けます。
もっと確実に開かないようにしたいとする場合
コメントアウトされている※のところに【Application.EnableCancelKey = xlDisabled】を追加してください。この一文を追加すると【Escキー】を無視するという命令が付け加えられますので真面目に開くのが困難になります。
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す