【Excel VBA】シートの保護（Protect）

基本情報

Protectメソッド

シートの保護をするには、WorksheetオブジェクトのProtectメソッドを使用します。

※緑字は引数です。

引数

Protectメソッドに渡す引数を以下に示します。
なお、すべて省略可能です。省略した場合は規定値列の値となります。

補足 – 書式化

書式化とは、セル・行・列の編集を実施できる状態のことを指します。

サンプルコード

シートを保護する

マクロを実行しているブックの 1番目のシートを保護します。
シートを保護されていてもコピーなどの操作は可能であるため、データの編集を完全に防ぎたい場合に使用しましょう。

Public Sub sheetProtect()

    ThisWorkbook.Worksheets(1).Protect
End Sub

りゅう

上記でシートの保護は出来ますが、使用者にてシートの保護の解除操作が実施されると、誰でも保護を解除出来てしまいます。
その場合は、後ほど掲載するサンプルコード「パスワード付きでシートを保護する」を参照ください。

シートの保護を解除する方法

シートの保護を解除する方法は以下の通りです。
※画像をクリックして拡大できます。

パスワード付きでシートを保護する

シートを保護するが、パスワードを知っている方のみ保護を解除できるようにします。
以下の例では、パスワード「vba-hack」を入力すると、一時的に保護を解除出来ます。

Public Sub sheetProtectPassword()

    ThisWorkbook.Worksheets(1).Protect Password:="vba-hack"
End Sub

シートの保護を解除する方法（パスワード入力）

パスワード付きのシートの保護を解除する方法について解説します。
まず、以下の通りに「シート保護の解除」を選択してください。

パスワードを入力するウィンドウが表示されます。
パスワード入力後、「OK」ボタンを押下すると保護が解除されます。

一部のセルを入力可能とし、シートを保護する

一部のセルを入力可能とし、残りのセルのシートを保護する方法を解説します。
LockedプロパティにFalseを入力することで、保護の対象外とすることが可能です。

Public Sub sheetProtectForInputCell()

    ' A1セルのロックを解除する
    ThisWorkbook.Worksheets(1).Range("A1").Locked = False

    ' シートを保護する
    ThisWorkbook.Worksheets(1).Protect
End Sub

最後に

今回は、シートを保護する方法について解説しました。
マクロの実行後に仕上げとして保護をかけることが多いかと思います。

保護をかける範囲やパスワード保護など、工夫してみてください！