Excel VBAでシートを保護したり、保護を解除したりする記録です。
シートの保護は「Protect」メソッド、保護の解除は「Unprotect」メソッドを使います。
< スポンサーリンク >
「Protect」「Unprotect」メソッド構文
シートの保護
式.Protect(Password, DrawingObjects, Contents, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
ワークシートを保護し、変更できないようにします。
式=ワークシートオブジェクトを表す変数
シート保護の解除
式.Unprotect(Password)
シートの保護を解除します。保護されていないシートに対しては、このメソッドは無効です。
式=ワークシートオブジェクトを表す変数
VBAでシートの保護を設定する例
シートを保護する
アクティブシートを保護します。
Sub test()
ActiveSheet.Protect
End Sub
シートをパスワードを付けて保護する
アクティブシートをaiueoというパスワードをつけて保護します。
Sub test()
ActiveSheet.Protect Password:=”aiueo”
End Sub
シートの保護を解除する
アクティブシートの保護を解除します。
Sub test()
ActiveSheet.Unprotect
End Sub
シートのパスワード付きの保護を解除する
アクティブシートのパスワード付きの保護を解除します。
Sub test()
ActiveSheet.Unprotect Password:=”aiueo”
End Sub
こんな記事も書いています