VBA　一部のセルを入力可能にしてシートを保護する

 

一部のセルを入力可能にしてシートを保護する

 

 

Sub test()

    ' 　一部のセルを入力可能にしてシートを保護する

 

    On Error GoTo errHandler
    With ActiveSheet
        .Range("B3:B4").Locked = False
        .Protect Password:="Yokbali168"
        .EnableSelection = xlUnlockedCells
    End With
    
    Exit Sub
errHandler:
    MsgBox Err.Description

End Sub

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

関連記事