Excelで複数のワークシートを一度に保護するにはどうすればよいですか？

複数のワークシートが含まれているワークブックがあり、すべてのワークシートや特定のワークシートを保護する必要があるとします。通常、Excelでは「シートの保護」機能を使って1枚ずつ保護するしかありませんが、多数のシートを保護する必要がある場合、この方法は面倒で時間がかかります。Excelで複数のシートを素早く簡単に一度に保護するにはどうすればよいでしょうか？

VBAコードを使用してすべてのシートを一度に保護

Kutools for Excelを使用して複数のシートを一度に保護

Kutools for Excelを使用して複数のシートを一度に保護解除

VBAコードを使用してすべてのシートを一度に保護

以下のVBAコードを使用すると、現在のワークブック内のすべてのシートを同じパスワードで一度に保護できます。手順は次の通りです：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: ワークブック内のすべてのワークシートを一度に保護：

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. 次に F5キーを押してコードを実行し、プロンプトボックスに保護されたシート用のパスワードを入力します。スクリーンショットをご覧ください：

4. 「 OK」をクリックし、次にパスワードを再度入力して確認します。

5. そして「OK」をクリックすると、すべてのシートが同じパスワードで保護されます。

Kutools for Excelを使用して複数のシートを一度に保護

時々、すべてのシートではなく、特定のシートだけを保護したい場合があります。このような状況では、上記のコードは役に立ちません。しかし、Kutools for Excelの「シートの保護」機能を使えば、すべてのシートや特定のシートを迅速かつ簡単に保護することができます。

Kutools for Excelをインストール後、次の手順を行ってください：

1. 「Kutools Plus」>「シートの保護」をクリックしてください。スクリーンショットをご覧ください：

2. 「シートの保護」ダイアログボックスで、保護したいシートを選択します。（デフォルトでは、現在のワークブック内のすべてのワークシートがチェックされています。）スクリーンショットをご覧ください：

3. 「OK」をクリックし、次に「シートの保護」ダイアログボックスでパスワードを入力して確認します。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、選択したワークシートが保護されます。

「シートの保護」をクリックして、この機能についてさらに詳しく知ることができます。

Kutools for Excelを使用して複数のシートを一度に保護解除

ワークブック内の複数の保護されたワークシートを同時に保護解除するにはどうすればよいですか？もちろん、Kutools for Excelには「シートの保護解除」機能も提供されており、これを使用して一括で保護を解除できます。

次の手順で行ってください：

1. 保護されたワークシートが含まれるワークブックを開きます。

2. 次に「Kutools Plus」>「シートの保護解除」をクリックしてください。スクリーンショットをご覧ください：

3. 「シートの保護解除」ダイアログボックスで、保護されたシートがリストボックスに表示されるので、「OK」ボタンをクリックしてください。スクリーンショットをご覧ください：

4. その後、「シートの保護解除」ダイアログボックスがポップアップして、ワークシートを保護するために設定したパスワードを入力するよう促されます。スクリーンショットをご覧ください：

5. パスワードを入力後、「 OK」をクリックすると、リストボックス内でチェックされたすべてのワークシートが保護解除されます。

注：ワークシートには同じパスワードが必要です。

この「シートの保護解除」機能についてさらに詳しく知るにはこちらをクリックしてください。

デモ： Kutools for Excelを使用してすべてのワークシートを一度に保護または保護解除

関連記事：

Excelで複数のワークシートを一度に保護解除するにはどうすればよいですか？