20260515指摘対応7

src/sh/tuk/sheet/M1.cls

@@ -152,6 +152,7 @@ Private Sub Refresh(ws As Worksheet, ByVal startRow As Long, ByVal lastDataRow A
         End If
     Next r
     
+    Application.EnableEvents = True
     Exit Sub
 
 ErrorHandler:

src/sh/tuk/sheet/M2.cls

@@ -408,6 +408,7 @@ Private Sub Refresh(ws As Worksheet, ByVal startRow As Long, ByVal lastDataRow A
 NextRow:
     Next r
     
+    Application.EnableEvents = True
     Exit Sub
 
 ErrorHandler: