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

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

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

taka

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

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

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フォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

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

taka

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