結線図

エクセルVBA実用例

エクセルで私が実際に使用したVBAの記録です。コピーして直ぐに実用。
《TOP》
全てのシートを一括で保護解除

全てのシートを一括で保護する

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

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

説明図

VBAサンプル(全シートを一括保護)

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
Next
Application.ScreenUpdating = True
MsgBox "全シートを保護しました"
End Sub

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

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

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

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

Copyright (C) 2020 Kazuo.Yosikawa
Mail form