Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet Dim cell As Range Dim redCell As Range Dim columnLetter As String ' アクティブなワークシートを取得 Set ws = ActiveSheet ' 各セルを確認し、赤文字があ…