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

関連ページ

• VBA-Excel最終行の取得
• VBA-実行時間の計測
• VBA-ブックの保護
• VBA-シートの保護
• VBA-シートイベントの制御
• VisualBasic