シート・ブックの保護編-エクセルのＶＢＡ集

---

シート・ブックの保護編

パスワードを設定したシートの保護を一括で行うには？

'全てのシートに『1234』というパスワードを設定してシートの保護をする例です。
Sub シートの保護()
　Dim W As Worksheet
　For Each W In Worksheets
　　W.Protect Password:="1234"
　Next W
End Sub

'全てのシートに設定された『1234』のパスワードのシートの保護を解除する例です。
Sub シートの保護解除()
　Dim W As Worksheet
　For Each W In Worksheets
　　W.Unprotect Password:="1234"
　Next W
End Sub

パスワードを設定したブックの保護を行うには？

'アクティブブックに『1234』のパスワードでブックの保護をする例です。
Sub ブックの保護()
　ActiveWorkbook.Protect Password:="1234"
End Sub

'アクティブブックに設定された『1234』のパスワードのブックの保護を解除する例です。
Sub ブックの保護解除()
　ActiveWorkbook.Unprotect Password:="1234"
End Sub

セルを選択出来る範囲を制御するには？

'セルの保護ロックのかかっているセルを選択出来なくする例です。

'このEnableSelectionのプロパティは保存されないのでブックを開く度に毎回設定する必要があります。
Sub セルを選択出来なくする()
　With ActiveSheet
　　.EnableSelection = xlUnlockedCells
　　.Protect
　End With
End Sub

保護されたシートをVBAで編集するには？

'UserInterfaceOnly:=Trueに設定する事により、VBAからの編集は可能になります。

'この設定は保存されないのでブックを開く度に毎回設定する必要があります。
Sub VBAで操作可能な保護()
　ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

ページトップ

---