20260515指摘対応9

src/sh/tuk/sheet/C1.cls

@@ -232,6 +232,18 @@ Finally:
     Application.EnableEvents = True ' 
 End Sub
 
+' Prevent insert/delete row in header area
+Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
+    Dim sheetConfDict As Object: Set sheetConfDict = GetSheetConfig()
+    Dim sheetConf As Object: Set sheetConf = sheetConfDict(Me.CodeName)
+    Dim filterRow As Long: filterRow = sheetConf("FilterRow")
+
+    If Target.Row < filterRow + 1 Then
+        Cancel = True
+        MsgBox "Cannot insert or delete row in header area.", vbExclamation
+    End If
+End Sub
+
 Private Sub RebuildDropdownsForTarget(ByVal Target As Range)
     If Target Is Nothing Then Exit Sub