Excel VBA シートの保護と解除

（対象）Excel　VBA

（確認）Excel2010、2013


今回はExcelでシートの保護と解除をする時の
動作です。

普段はユーザーに触って欲しくないけれど
マクロで作業中はセルの変更や行列の追加削除を
行いたい。

そんな時は作業中に保護・解除を行ってみましょう。
どちらも一文で行えます。

---

'===========================================================

' シートの保護

'===========================================================

Sub SheetProtect()

  '■アクティブシートの保護

  'Password　　　　　＝　パスワード

  'userInterfaceOnly ＝　動作を制御する対象をユーザーの操作のみにする

  ' 　　　　　　　　　　（宣言しないとマクロ動作も制御してしまう）

  

  '１．パスワードつき

  ActiveSheet.Protect Password:="password", userInterfaceOnly:=True

  

  '２．パスワードなし

  'ActiveSheet.Protect, userInterfaceOnly:=True

End Sub

'===========================================================

' シートの保護を解除

'===========================================================

Sub SheetUnProtect()

  '■アクティブシートの保護を解除

  '１．パスワードつき

  ActiveSheet.Unprotect Password:="password"

  

  '２．パスワードなし

  'ActiveSheet.Unprotect

End Sub

---

保護と解除は割と使うことが多い作業でしょうか。


では今回はこの辺りで。