VBA入門
第68回.シートの保護、ブックの保護（Protect）

Worksheet.Protectメソッド
ワークシートを保護し、変更できないようにします。
式.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
式には、Worksheetオブジェクトを指定します。

Password	パスワードでは大文字と小文字が区別されます。 この引数を省略すると、ワークシートまたはブックはパスワードの使用なしで保護解除できます。 この引数を指定すると、保護解除をするためには、そのパスワードが必要になります。 パスワードを忘れると、シートまたはブックの保護を解除できなくなってしまうので注意してください。
DrawingObjects	描画オブジェクトを保護するには、True を指定します。	TRUE
Contents	オブジェクトの内容を保護するには、True を指定します。 この引数による保護対象は、グラフの場合はグラフ全体、ワークシートの場合はロックされているセルです。	TRUE
Scenarios	シナリオを保護するには、True を指定します。この引数はワークシートの場合のみ有効です。	TRUE
UserInterfaceOnly	True を指定すると、画面上からの変更は保護されますが、マクロからの変更は保護されません。この引数を省略すると、マクロからも、画面上からも変更することができなくなります。	FALSE
AllowFormattingCells	True を指定すると、ユーザーは保護されたワークシートのセルを書式化することができます。	FALSE
AllowFormattingColumns	True を指定すると、ユーザーは保護されたワークシートの列を書式化することができます。	FALSE
AllowFormattingRows	True を指定すると、ユーザーは保護されたワークシートの行を書式化することができます。	FALSE
AllowInsertingColumns	True を指定すると、ユーザーは保護されたワークシートに列を挿入することができます。	FALSE
AllowInsertingRows	True を指定すると、ユーザーは保護されたワークシートに行を挿入することができます。	FALSE
AllowInsertingHyperlinks	True を指定すると、ユーザーは保護されたワークシートにハイパーリンクを挿入することができます。	FALSE
AllowDeletingColumns	True を指定すると、ユーザーは保護されたワークシートの列を削除することができ、削除される列のセルはすべてロック解除されます。	FALSE
AllowDeletingRows	True を指定すると、ユーザーは保護されたワークシートの行を削除することができ、削除される行のセルはすべてロック解除されます。	FALSE
AllowSorting	True を指定すると、ユーザーは保護されたワークシートで並べ替えを行うことができます。 並べ替え範囲内のセルは、ロックと保護が解除されている必要があります。	FALSE
AllowFiltering	True を指定すると、ユーザーは保護されたワークシートにフィルターを設定することができます。 ユーザーは、フィルター条件を変更できますが、オートフィルターの有効と無効を切り替えることはできません。	FALSE
AllowUsingPivotTables	True を指定すると、ユーザーは保護されたワークシートでピボットテーブル レポートを使用することができます。	FALSE

全ての引数がオプション（任意指定）です。
引数が非常に多くあります。
これらは、「シートの保護」のダイアログのチェックボックスに対応しています。

この一つ一つのチェックが、上記の引数に対応しています。
複雑な指定をする場合は、マクロの記録を利用すると良いでしょう。
注意する引数

Worksheet.Unprotect メソッド
ワークシートの保護を解除します。
式.Unprotect Password

名前	説明
Password	シートの保護を解除するためのパスワードを指定します。 なお、パスワードでは大文字と小文字は区別されます。 シートの保護にパスワードが指定されていないときは、この引数は無視されます。 パスワードが設定されているにもかかわらず、この引数を省略するとパスワードの入力を促すダイアログ ボックスが表示されます。

引数はオプション（任意指定です）

ユーザーには変更させないシートを、マクロVBAで変更する場合。

Worksheets(1).Unprotect Password:="password" '・・・シートへの変更処理・・・ Worksheets(1).Protect Password:="password" AllowFiltering:=True

上記では、保護に際しパスワードを設定しています。
また、
ユーザーにオートフィルタの使用を許可しています。

Workbook.Protect メソッド
変更できないようにブックを保護します。
式.Protect(Password, Structure, Windows)
式には、Workbook オブジェクトを指定します。

名前	説明
Password	ワークシートまたはブックのパスワードを示す文字列。 大文字と小文字が区別されます。この引数を省略すると、パスワードを使用せずにワークシートまたはブックの保護を解除できます。 この引数でパスワードを指定すると、ワークシートまたはブックの保護を解除するときにパスワードが必要になります。 パスワードを忘れると、ワークシートまたはブックの保護を解除できなくなります。
Structure	ブックの構造 (各シートの相対位置) を保護する場合はTrue。 既定値はFalse です。
Windows	ブックのウィンドウを保護する場合は True。 この引数を省略すると、ウィンドウは保護されません。

全ての引数がオプション（任意指定）です。

Workbook.Unprotect メソッド
シートまたはブックの保護を解除します。保護されていないシートやブックに対しては、このメソッドは無効です。
式.Unprotect(Password)
式には、Workbook オブジェクトを指定します。

名前	データ型	説明
Password	バリアント型 (Variant)	ブックの保護を解除するためのパスワードを示す文字列。 パスワードでは大文字と小文字が区別されます。 ブックがパスワードで保護されていない場合、この引数は無視されます。 対象のブックがパスワードで保護されている場合、この引数を省略すると、そのブックの保護を解除することはできません。

引数はオプション（任意指定です）

作ったエクセルを事故（間違った操作等）から守るために保護は必須です。
しかし、
たとえブックを保護しても、Excelファイルは削除できてしまいます。
最終的には、
バックアップと運用ルールをしっかり決めておくことと、
使用者全員が最低限のエクセル知識を持つことが肝心です。

同じテーマの記事
新着記事
アクセスランク