【VBA】Excelで弁当注文を締め切るマクロ｜日付を自動ロック

2024年8月15日2025年12月22日

経緯

Excelで管理している弁当の注文ファイルにおいて、
「ある時刻になったら、翌日の注文欄を入力できないようにしたい」というニーズがありました。

これまでは手作業でロックしていたのですが、VBAを使って自動的に明日の日付の列を保護するコードを作成しました。

ファイル構成と仕様

今回のマクロは、以下のような構成を前提としています。

D4〜AH4 に日付（1〜31の「日」単位の数値）が入っている
C6〜C135 に従業員などの名前が並んでいる
D6〜AH135 に「弁当」や「×」などの入力欄がある

この状態で実行すると、翌日の日付の列だけが自動的にロックされ、編集できなくなる仕組みです。

VBAコード

以下が実際に使用したコードです。

Sub CloseOrder()
    Dim tomorrowDate As Date
    Dim rng As Range
    Dim columnIndex As Integer
    Dim ws As Worksheet

    ' 明日の日付を取得
    tomorrowDate = Date + 1

    ' 対象のシートを指定（必要に応じて変更）
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 明日の日付が入力されている列を探す（D4〜AH4の中）
    For Each rng In ws.Range("D4:AH4")
        If rng.Value = Day(tomorrowDate) Then
            columnIndex = rng.Column
            Exit For
        End If
    Next rng

    ' 該当列を黄色で塗りつぶす（視認性向上）
    ws.Range(ws.Cells(6, columnIndex), ws.Cells(135, columnIndex)).Interior.Color = vbYellow

    ' 該当列をロック（シート保護の準備）
    ws.Unprotect
    ws.Range(ws.Cells(6, columnIndex), ws.Cells(135, columnIndex)).Locked = True
    ws.Protect

    MsgBox "注文が閉められました。"
End Sub