会社の業務の中で、非効率と分かっていても、なぜか「ブック」単位でなくて「シート」単位で保護ロックがパスワードつきで掛けられて、それをわざわざ手で解除する必要があるExcelファイルが存在します。
それをいちいち、手でシートごとに解除して、、なんという地道な作業、、
Excelでシートにかけられたロックを一括で解除する方法は実はありません。
この場合は、簡単なVBAコードを記述する必要があるでしょう。
- VBAマクロを使う
Excelを開き、「Alt + F11」を押してVBAエディタを開きます。
「挿入」メニューから「標準モジュール」を選択します。
次のVBAコードをモジュールに貼り付けます：
Sub UnprotectAllSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect
Next ws
End Sub
「F5」キーを押してマクロを実行します。
すると、パスワードを一つシートごとに入力する画面が出てきますので、そこにあらかじめ設定しているパスワードを打ち込んで連続で解除していきます。
もし手打ちするのが面倒くさければ、テキストをCtrl+C でコピーしておき、、
あとはそのパスワード窓に、Ctrl＋V で貼り付けてエンター、これがサクサクいくかと思います。
マクロ操作は面倒くさいですが、これを知っておくだけで各段に作業効率があがるかと思います。
コメント