エクセルＶＢＡ実用例

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

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

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

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

説明図

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

Application.ScreenUpdating = True

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

Exit Sub

HandleErr:

MsgBox "パスワードが掛かっています" & vbCrLf & "解除が出来ません", vbCritical

End Sub

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

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

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

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