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

同じパスワードで保護された複数のワークシートが含まれるワークブックがあり、いくつかの情報を変更するためにそれらの保護を解除する必要があるとします。ワークシートを1つずつ「保護解除」することはできますが、複数のシートがある場合、この方法では多くの時間がかかります。ここでは、複数の保護されたシートを迅速に保護解除する方法をいくつかご紹介します。

VBAコードを使用して複数のシートを一度に保護解除

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

VBAコードを使用して複数のシートを一度に保護解除

VBAコードに精通している場合、次のコードは複数のシートを迅速に保護解除するのに役立つかもしれません。

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

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

Sub unprotect_all_sheets() 
On Error Goto booboo 
unpass = InputBox("Please enter the password:") 
For Each Worksheet In ActiveWorkbook.Worksheets 
Worksheet.Unprotect Password:=unpass
Next
Exit Sub 
booboo: MsgBox "There is s problem - check your password, capslock, etc." 
End Sub 

3. そして、 F5キーを押してコードを実行し、保護されたシートに適用したパスワードを入力します。（保護されたシートはすべて同じパスワードを持っている必要があります）スクリーンショットをご覧ください：

4. 「OK」をクリックすると、保護されたシートが一度に保護解除されます。

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

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

1. 「Kutools Plus」＞「 ワークシートの保護解除」をクリックします。スクリーンショットをご覧ください：

2. 「ワークシートの保護解除」ダイアログボックスで、保護されたシートがワークシートリストボックスに表示されるので、保護を解除したいシート名にチェックを入れ、「 OK」をクリックします。その後、ポップアップしたダイアログボックスで、保護されたシートに適用したパスワードを入力します（保護されたシートはすべて同じパスワードを持っている必要があります）。スクリーンショットをご覧ください：

3. そして「OK」をクリックすると、プロンプトボックスが表示され、いくつのシートが保護解除されたかが通知されます。「OK」をクリックすると、選択したすべてのシートがワークブック内で保護解除されます。スクリーンショットをご覧ください：

ヒント: ワークブック内のすべてのワークシートを一度に保護するには、次のスクリーンショットに示すように、Kutools for Excelの「ワークシートの保護」機能を使用するだけです：

今すぐKutools for Excelをダウンロードして無料でお試しください！

デモ: Kutools for Excelを使用して複数のシートを一度に保護および保護解除

関連記事：

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