Maybe, something like:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim awf As WorksheetFunction: Set awf = WorksheetFunction

If awf.Sum(Worksheets("Sheet1").Range("D1:I1")) <> 0 Then
    Cancel = True
    MsgBox "Your Modification Impacted the Utiliti." & _
           vbCrLf & vbCrLf & _
           "Please Register Your Impact in Order to be Able to Save your Contribution to the File!", _
           vbOKOnly
Else
    Cancel = False
End If

End Sub

Beware that a combination of positive and negative values in the range could result in a zero total ... and allow the workbook to be saved.


Regards, TMS