[VBA] Πώς εμποδίζουμε την αποθήκευση αρχείου Excel

[kapetang]

Καλησπέρα

Δοκίμασε τον κώδικα:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim WS_Count As Integer
    Dim I As Integer, mo As Variant
    
    WS_Count = ActiveWorkbook.Worksheets.Count
    For I = 1 To WS_Count
        mo = Application.Sheets(I).Range("S22").Value
        If (mo > 18.5) * (mo <> 0) * (mo <> "") Then
            Cancel = True
            MsgBox "Η αποθήκευση ακυρώθηκε." & Chr(13) & _
                   "Ο μέσος όρος βαθμολογίας στο μάθημα" & Chr(13) & _
                   "είναι πολύ υψηλός." & Chr(13) & _
                   "Παρακαλώ επανεξετάστε τους βαθμούς σας." & Chr(13) & _
                   "Εκ της Διευθύνσεως."
        End If
    Next I
End Sub