【VBA】シートのロック(保護)をかける方法

2024年4月23日2024年10月6日

今回はVBAでシートのロック(保護)をかける方法と外す方法を紹介します。

ごくたまにですが､次のような理由でシートを保護したいときがあります｡

情報の保護: 重要なデータや機密情報が含まれるシートを、閲覧者が不用意に変更できないようにする場合に使用します（ロックされたシートは、閲覧者に対して情報の表示のみを許可しますが、セルの内容の変更や削除、列や行の挿入・削除は制限されます。）
フォーマットの保護: セルのフォーマットを変更されるリスクを軽減したい場合に使用します。（ロックされたシートでは、セルのフォーマットやセルの結合・非結合などの変更が制限されます）
シートの構造の保護: ユーザーが誤って行や列を変更するリスクを軽減したい場合に使用します。（ロックされたシートでは、列の挿入・削除や行の挿入・削除が制限されます）

このようにセキュリティやデータの保護を強化するために、シートのロック(保護)を活用するケースがあります。

VBAでシートをロック(保護)するコードをお見せしますので、使用してみてください。

シートのロック(保護)をかける方法

シートを一度変数に設定してからロックするには､以下のコードを使用します｡

Sub LockSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Protect Password:="password"
End Sub

このコードを実行すると"Sheet1″にパスワードをつけて保護することができます。

同様に、シートのロック(保護)を外すときには次のコードを使用します。

Sub UnlockSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Unprotect Password:="password"
End Sub

このコードを実行すると"Sheet1″の保護を外すことができます。

《VBA上級者になりたい人へ》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。
この本を読み切れば間違いなくVBA上級者になれます。

created by Rinker

技術評論社

¥3,608 (2025/01/15 14:29:08時点 Amazon調べ-詳細)

VBAが難しいと感じたら

ココナラにてVBAの作成依頼を受け付けています。
ご依頼・ご相談はこちらから