結線図

エクセルVBA実用例

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

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

前号(エクセルブックのシート数が多く、シート保護の回数がいちいち面倒で手間が掛かる。VBAを使用すれば一括で「全シートの保護」が可能になります。)

続編で「全シートの保護解除」を紹介します。

説明図

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

Sub SUnprot()
Dim ws As Worksheet
Dim m
On Error GoTo HandleErr
If MsgBox("全シートの保護を解除します" & vbCrLf & "パスワードの掛かったシートは解除出来ません", 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 "全シートの保護を解除しました"
Exit Sub
HandleErr:
MsgBox "パスワードが掛かっています" & vbCrLf & "解除が出来ません", vbCritical
End Sub

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

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

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

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

Copyright (C) 2020 Kazuo.Yosikawa
Mail form