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

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

「コピペでVBA(Excel)」の概要と使い方
「コピペでVBA(Excel)」の概要と使い方
「コピペでVBA(Excel)」とは? エクセルVBAの知識がない人でもコードをコピペするだけで便利な処理が使えることを目指しています。汎用性のありそうなコードを順次公開
2018-02-12 14:00
はてブ

このマクロの解説

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

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

すべてのシートを一括で保護(ロック)する方法 – コピペでVBA(Excel)
すべてのシートを一括で保護(ロック)する方法 – コピペでVBA(Excel)
こちらの記事はエクセル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

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

スポンサーリンク

シェアする

  • このエントリーをはてなブックマークに追加

フォローする