EXCEL VBA ワークブック（WorkBook）の保護・解除の方法（Protect / Unprotect)

2020年2月1日

EXCEL VBA ワークブック（WorkBook）の保護・解除の方法（Protect / Unprotect)

●はじめに

EXCELで作成したブックを共有する時に、他の人に作成したブックを壊されたくないと思いますが、この時に使用するのがブックの保護です。VBAでブック保護を行うには、WorkBookオブジェクトのProtectメゾットを使用します。ブックを保護する事で、シートの構成やウィンドウサイズ変更などを禁止する事ができます。また、保護したブックを解除する場合は、WorkBookオブジェクトのUnprotectメゾットを使用します。それでは、順番にワークブックの保護・解除の方法を説明いたします。

●書式の説明　【ワークブック・オブジェクトProtect・Unprotectメゾット】

【ワークブックの保護　ワークブックオブジェクト.Protectメゾットの利用方法】

オブジェクト.Protect(Password,Structure,Windows)

引数	設定（例）	説明
Password	Password:="Pass" ※省略可能	パスワード設定します。大文字・小文字・数値などを区別します。
Structure	Structure:=True ※省略可能	Structure: Trueでシートの追加・削除が不可 Structure: Falseでシートの追加・削除が可能既定値は、False
Windows	Windows:=False ※省略可能	Windows: Trueでウィンドウサイズの変更不可（固定） Windows: Falseでウィンドウサイズの変更可能既定値：False

ワークブックの保護（Protectメゾット）

●プログラム説明　（サンプル①）

下記のサンプルプログラムは、ブックを保護するサンプルプログラムです。Protectメソッドを利用して、パスワードの設定・シート構成の保護・ウィンドウの保護を指定したサンプルプログラムです。

Sub Protect01()

    ThisWorkbook.Protect Password:="pass", Structure:=True, Windows:=True
    'パスワード＝　pass ・シート構成の保護＝　する　・ウインドウの保護＝　する
    
End Sub

Sub Protect01()

ThisWorkbook.Protect Password:="pass", Structure:=True, Windows:=True

'パスワード＝　pass ・シート構成の保護＝　する　・ウインドウの保護＝　する

End Sub

●実行前～実行後　※上記のプログラムを実行すると・パスワード設定・シート構成の保護・ウインドウの保護されました。
（画面クリックして拡大）

ワークブックの解除（Unprotectメゾット＋Protectメゾット）

●プログラム説明　（サンプル②）

下記のサンプルプログラムは、ブックの保護を解除するサンプルプログラムです。ProtectメソッドとUnprotectメゾットを利用して、パスワード設定の解除・シート構成の保護解除・ウィンドウの保護解除を実施するサンプルプログラムです。

Sub Protect02()

    ThisWorkbook.Unprotect Password:="pass"
    ThisWorkbook.Protect Structure:=False, Windows:=False
    
    'パスワード＝　解除 ・シート構成の保護＝　しない　・ウインドウの保護＝　しない

End Sub