2010年のMicrosoft ExcelでVBAを/プロテクト解除すべてのワークシートを保護する方法
この記事では、VBAコードを使用してすべてのシートを保護および保護解除する方法を学習します。
VBAエディター画面を開くには、以下の手順に従います。
[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します
Click on Insert, and then Module
これにより、新しいモジュールが作成されます。
モジュールに次のコードを入力して、すべてのワークシートを保護します。
Sub Protect()
‘ブック内のすべてのシートをループします
For i = 1 To Sheets.Count
Sheets(i).Protect
次の私
サブの終了
すべてのワークシートの保護を解除するには、次のコードを使用します。
Sub UnProtect()
‘ブック内のすべてのシートをループします
For i = 1 To Sheets.Count
Sheets(i).UnProtect
次の私
サブの終了
Alt + F8ショートカットキーを押してマクロウィンドウを開き、保護マクロを選択します。
または、F5キーを押してVBA画面でコードを実行することもできます。
マクロを実行した後;すべてのシートが保護されます。
Alt + F8を押して、[保護解除]を選択します
これにより、すべてのワークシートの保護が解除されます。
このようにして、必要に応じてワークシートを保護および保護解除できます。