この記事では、VBAコードを使用してすべてのシートを保護および保護解除する方法を学習します。

VBAエディター画面を開くには、以下の手順に従います。

[開発者]タブをクリックし、[コード]グループから[VisualBasic]を選択します

img1 Click on Insert, and then Module

img2

これにより、新しいモジュールが作成されます。

モジュールに次のコードを入力して、すべてのワークシートを保護します。

Sub Protect()

‘ブック内のすべてのシートをループします

For i = 1 To Sheets.Count

Sheets(i).Protect

次の私

サブの終了

img3

すべてのワークシートの保護を解除するには、次のコードを使用します。

Sub UnProtect()

‘ブック内のすべてのシートをループします

For i = 1 To Sheets.Count

Sheets(i).UnProtect

次の私

サブの終了

Alt + F8ショートカットキーを押してマクロウィンドウを開き、保護マクロを選択します。

img4

または、F5キーを押してVBA画面でコードを実行することもできます。

マクロを実行した後;すべてのシートが保護されます。

Alt + F8を押して、[保護解除]を選択します

img5

これにより、すべてのワークシートの保護が解除されます。

このようにして、必要に応じてワークシートを保護および保護解除できます。