ページコンテンツ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- 【雑記】面白い？マウス買ってみたのでご紹介【アーク タッチ マウス 】 - 2018年7月17日
- VBA オブジェクト変数について - 2018年7月15日
- 【雑記】フォントについて - 2018年7月12日
- VBA 【Option Explicit】について - 2018年7月10日
- Excel関数 フリガナを取得する【PHONETIC関数】 - 2018年7月7日
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 @takabou63
コメントを残す