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

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

「コピペでVBA(Excel)」とは？エクセルVBAの知識がない人でもコードをコピペするだけで便利な処理が使えることを目指しています。汎用性のありそうなコードを順次公開していき

2018-02-12 14:00

このマクロの解説

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

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

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

2018-02-12 15:00

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

※コードをコピーする時は、右上のアイコンをクリックしてください