エクセルＶＢＡ実用例

エクセルで私が実際に使用したVBAの記録です。コピーして直ぐに実用。

全てのシートを一括で保護解除

エクセルブックのシート数が多く、シート保護の回数がいちいち面倒で手間が掛かる。

VＢAを使用すれば一括で「全シートの保護」が可能になります。

説明図

Sub SProt()

Dim ws As Worksheet

Dim m

If MsgBox("全シートを保護します", vbYesNo + vbQuestion) = vbNo Then Exit Sub

Application.ScreenUpdating = False

For Each ws In Worksheets

If ws.Name <> "" Then

ws.Activate

ActiveSheet.Protect

End If

Application.ScreenUpdating = True

MsgBox "全シートを保護しました"

End Sub

1.上記のサンプル例をコピーしてVBAに書込みます。

2.マクロを実行します。

以上の操作で当該ブック内のシートは全て保護されます

※ＶＢＡ書込みの詳細は「初めてのＶＢＡマクロ」をご覧ください。す