すべてのシートを一括で保護解除する方法 - コピペでVBA(Excel)

こちらの記事はエクセルVBAをあまり知らない方でも利用できる「コピペでVBA(Excel)」としてもご活用できます。詳しくは以下の記事をご確認ください。

このマクロの解説

このコードを実行すると、アクティブなブックの全てのシートを保護を解除します。 なお、こちらはパスワードを設定していない場合のコードです。パスワードが設定されている場合はプラスワンのコードをご確認ください。

反対の処理はこちら↓↓↓

このマクロのコード

Private Sub 全シート一括保護解除()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
        s.UnProtect
    Next s
End Sub

このマクロを使う理由

エクセルの標準機能では、シートの保護を一括で解除できません。大量のシートを1度に保護解除したい時に使うと便利です。

プラスワン：パスワード付きのシート保護を解除する方法

上記のコードは、パスワードが設定されていない場合のコードです。パスワード付きで保護されている場合は下記ように記述してください。 下記のコードでは、「p1234」がパスワードになります。

Private Sub 全シート一括保護解除()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
        s.UnProtect Password:="p1234"
    Next s
End Sub