シート・ブックの保護チェック編
シートの保護が掛かっているか確認するには？
'シートの保護が掛かっているかどうかチェックする例です。
Sub シートの保護有無()
If ActiveSheet.ProtectContents = True Then
MsgBox "シートの保護がされています。"
End If
End Sub
ブックの保護が掛かっているか確認するには？
'ブックの保護が掛かっているかどうかチェックする例です。
Sub ブックの保護の有無()
If ActiveWorkbook.ProtectWindows = True Then
MsgBox "ブックの保護がされています。"
End If
End Sub
セルが保護されているかどうか確認するには？
'アクティブセルがシートの保護対象になっているかどうかチェックする例です。
Sub セルの保護の有無()
If ActiveCell.Locked = True Then
MsgBox "保護対象になっています。"
End If
End Sub