全てのシートの保護解除を一気にしたい。

全てのシートの保護解除を一気にしたい。

シートの保護解除の繰り返しって、意外にストレスです。。。

VBA使えば一気に保護解除、保護設定も容易になりますよ♪

それはありがたい、是非とも教えてください。

コードは、下記に記しますね♪

シート保護

Sub シート保護()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="0843"　’0843は、仮パスワードです、任意のパスに♪
Next
End Sub

 

 シート保護解除

Sub シート保護解除()
Dim ws As Worksheet
For Each W In Worksheets
ws.Unprotect Password:="0843"　’0843は、仮パスワードです、任意のパスに♪
Next
End Sub

 

 おまけ

sheetではなくbookの場合は、下記の通りです♪♪

勉強なります、メモメモ。。。

Sub ブック保護()
　ActiveWorkbook.Protect Password:="0843"
Next
End Sub

 

 

Sub ブック保護解除()
　ActiveWorkbook.Unprotect Password:="0843"
End Sub