書式設定以外マクロのみ編集可能なシートにする

 

 

Sub test()

    ' 書式設定以外マクロのみ編集可能なシートにする


    Dim WS As Worksheet

    Set WS = Sheets(1)

    With WS
            .Protect UserInterfaceOnly:=True, _
                Password:="yokbali168", _
                AllowFormattingColumns:=True, _
                AllowFormattingCells:=True, _
                AllowFormattingRows:=True
 

            .Range("B3") = "00001"
            .Range("B4") = "福沢ユキチ"
            
    End With

 

End Sub

 

 

Sub test02()

    ' シート保護を解除

 

     Sheets(1).Unprotect Password:="yokbali168"

 

 

End Sub

 

 

 

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

 

 

関連記事