bookの名前が変更されたら開かなくする方法

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

bookの名前が変更されたら開かなくする方法

ふと思いついただけなので暇つぶしにでも見てもらえると嬉しいです。前に会社で同僚にファイル名を変更されたことがあったのでその対策をと思いまして。bookの名前が変更されたら開かなくする方法を紹介いたします。VBAを知らない方なら効果てきめんだと思います。

bookの名前が変更されたら開かなくするコー

非常にシンプルなコードです。【Book1.xlms】というファイル名じゃない場合に動くコードです。

ちなみにコード中の【ThisWorkbook】とは【このコードが書かれているBook】という意味です。

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キー】を無視するという命令が付け加えられますので真面目に開くのが困難になります。

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link