フォルダ内全ファイル一括シート保護・解除できる!
全ファイル一括シート保護・解除マクロツールをご紹介します。
エクセルファイルをダウンロードしてすぐに使えます。
シート保護は1枚ずつ設定・解除しなければいけませんが
このマクロツールでボタンを押すだけで
全ファイル一括シート保護・解除ができます。
操作画面

手順
①シート保護または保護解除したいファイルをを1つのフォルダに保存する

②パスワードの入力が必要な場合はチェックボックスにチェックを入れ
【シート保護設定】または【シート保護解除】ボタンを押す

③ダイアログからフォルダを選択

※実行ファイルの保存先にon_pretectまたはoff_protectフォルダが作成され、保護または保護解除されたエクセルファイルが保存されます。




作業完了後、D2に作業を実行したフォルダのパスが表示されます。

↓ダウンロードはこちらをクリック(詳しい手順、注意事項はファイルの中に記載)

上記のファイルはパスワードをファイルごとに設定できる仕様になっています。
↓全て同じパスワードで設定したい場合は以下のファイルをご利用ください。

お世話になります。
こちらの各種マクロ、大変便利に使わせていただいております。
今回、約30個のファイルに同じパスワードを設定したいと思い、ファイルを同じフォルダに集め、パスワード設定にチェックを入れて、このマクロを使おうとしたのですが、何度も設定するパスワードを入力するように求めてきます。
使用方法に誤りがあるのでしょうか?
お問い合わせありがとうございます。
掲載しておりますマクロはファイルごとにパスワードを設定する仕様になっておりました。
先程一括でパスワードを設定するマクロをページの一番下に掲載しましたのでご確認お願い致します。
使ってみました。イメージ通りで、完璧です。
作業時間を大幅に短縮できました。ありがとうございます。
(同じような作業を約200個のファイルに対してしなくてはならなくて、途方に暮れていました)
お世話になります。
掲載されているマクロは同じパスワードでも毎回解除のパスワードを入力するようになっていますが、同じパスワードである事が前提条件で、パスワードの入力を一度だけで全て保護の解除ができるように変更は可能でしょうか?
マクロの知識があまりなく、自力で解決が出来ませんでした…。
お手数ですが、ご教授いただければ幸いです。
返信が遅くなりまして申し訳ありませ上に
以下のコードをDo while 文の上に出してください。
If ThisWorkbook.Sheets(1).CheckBox1.Value = True Then
ps = InputBox(“不要な場合は未入力、またはキャンセルを押してください”, “パスワードを入力”, “”)
End If
以下のような形になります。
If ThisWorkbook.Sheets(1).CheckBox1.Value = True Then
ps = InputBox(“不要な場合は未入力、またはキャンセルを押してください”, “パスワードを入力”, “”)
End If
‘ファイルをエクセルに変換
Do While OpenFileName <> “”
Set OpenBook = Workbooks.Open(Filename:=DirName & “\” & OpenFileName, ReadOnly:=True)
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:=ps ‘シート保護解除
Next i
Sheets(1).Select
OpenBook.SaveAs Filename:=DirName & “\off_protect” & “\” & OpenFileName, _
FileFormat:=xlWorkbookDefault
OpenBook.Close
OpenFileName = Dir()
Loop
お手数お掛け致しますがよろしくお願い致します。