ももの知恵の樹

VBA-ブックの保護

VBA-ブックの保護

Excelのブック保護機能を操作します。


ブックの保護が有効であるか調べる。


Public Function _
IsBookProtect() As Boolean
    With ThisWorkbook
        If (.ProtectStructure = True) Then
            IsBookProtect = True
        End If
    End With

    Exit Function
End Function

ブックの保護を有効にする。


Public Function _
BookProtect() As Boolean
    With ThisWorkbook
        If (.ProtectStructure = False) Then
            .Protect _
                Password:=SHEET_PASSWD, _
                Structure:=True
        End If
    End With

    BookProtect = True
    Exit Function
End Function

ブックの保護を解除する。


Public Function _
BookUnprotect() As Boolean
    On Error GoTo ErrHandler

    With ThisWorkbook
        If (.ProtectStructure = True) Then
            .Unprotect Password:=SHEET_PASSWD
        End If
    End With

    BookUnprotect = True
    Exit Function
ErrHandler:
End Function

関連ページ