VBA-シートの保護



VBA-シートの保護


シートの保護を有効にする

Public Function _
SheetProtect(ByVal sheet As String) As Boolean
    On Error GoTo ErrHandler
    With ThisWorkbook.Worksheets(sheet)
        .Protect _
            AllowFiltering:=True, _
            UserInterfaceOnly:=True, _
            AllowFormattingColumns:=True, _
            AllowFormattingRows:=True, _
            AllowSorting:=True, _
            Password:="パスワード文字列"
    End With

    SheetProtect = True
    Exit Function
ErrHandler:
End Function

シートの保護を解除にする

Public Function _
SheetUnprotect(ByVal sheet As String) As Boolean
    On Error GoTo ErrHandler
    With ThisWorkbook.Worksheets(sheet)
        .Unprotect Password:="パスワード文字列"
    End With

    SheetUnprotect = True
    Exit Function
ErrHandler:
End Function

関連



スポンサード リンク