エクセルシートの保護したらマクロエラーになった時のVBA対処法

エクセルで様々な計算式などが入っている表を作った時に、誤って計算式などを消されないようにシートの保護設定をしたら、マクロエラーになったことありませんか？

原因は、シートの保護を設定するとユーザーフォームのテキストボックスからの入力もできなくなってエラーになっているので、Protectメソッドを使用してシート保護・解除を自動化すれば解決しますので、使い方をご紹介します。

Protectで保護・Unprotectで解除

エクセルシートの保護をする時に、ワークシートの「校閲」から「シートの保護」で行わずにVBAコードで保護・解除ができるようになります。

この方法ならば、コマンドボタンなどに直接書き込めるので、シートの保護設定をしたからといって、入力・並べ替えなどもできるようになります。

使い方は簡単で、作業開始直前に保護解除（Unprotect）をして、作業終了直前にシートの保護（Protect）をすれば完成なので、既存のVBAコードに付け足すだけです。

Workbookで設定の場合

エクセルファイルを開いたら自動的にシートの保護をする設定方法は、「Microsoft Visual VasicのVBA Project」の中にある、「ThisWorkBook」に下記コードを記述します。

5行目にActiveSheet.Protectを付け足すだけで完成で、あとは各コマンドボタンをクリックすると最初に保護解除するVBAコードを加えるだけで、マクロエラーから解放されます。

ちなみに、上記VBAコードはパスワード設定や部分許可の設定をしないシンプルな方法です。

波乗りアヒル

ThisWorkBookの場所についてはこちらに記載していますのでご参考下さいませ。

詳細へ

エクセルファイルを開くと自動的にユーザーフォームを表示する方法 オリジナルの入力フォームを表示させる方法に悩んだことありませんか？ エクセルファイルを開いたら自動的にユーザーフォームが開くようになったら手間もなく便利なので…

各コマンドボタンの設定

先ほどブックでシートの保護を自動的に設定したので、各コマンドボタンにはすでに書いてあるプログラムの開始前にシートの解除設定をして、プログラムが終了するEnd Subの直前にシートの保護を設定するだけです。

波乗りアヒル

このようにするだけで、シートの保護を設定してもプログラム開始直前に解除・実行・保護となるのでコードを書き直したりする必要が無いので必ず使っていますよ。

関連記事