Excelのマクロ(シート保護・文字列入力・セル書式変更)

Ecxcelのマクロで、シートの保護を解除して文字列を入力したりセルの書式設定を変更したりした後に改めてシートの保護を実施する作用があったので、そのマクロを残します。

  Sheets(“シート名”).Select

    ActiveSheet.Unprotect Password(“パスワード”)

    Range(“A1:X100”).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    Range(“B2”).Select
    ActiveCell.FormulaR1C1 = “セルに入力したい情報”

    ActiveSheet.Protect Password(“パスワード”) DrawingObjects:=True, Contents:=True, Scenarios:=True

細かい設定の値は適宜変更してください。