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

関連



スポンサード リンク