Um zu verhindern, dass die aktuelle Arbeitsmappe gespeichert wird, wenn die bestimmte Zelle in Excel leer ist, können Sie das folgende VBA-Makro einfach anwenden.

Schritt 1: Öffnen Sie das Fenster Microsoft Visual Basic für Applikationen, indem Sie auf drücken Andere + F11 Schlüssel in der Zwischenzeit.

Schritt 2: Erweitern Sie im Projektexplorer die VBAProject (Ihr Arbeitsmappenname.xlsm) und Microsoft Excel-Objekteund doppelklicken Sie dann auf DiesesWorkbook. Siehe Screenshot links:

Schritt 3: Fügen Sie im sich öffnenden ThisWorkbook-Fenster das folgende VBA-Makro ein:

VBA-Makro: Verhindern Sie das Speichern, wenn eine bestimmte Zelle leer ist

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook

xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)

If xWSh Is Nothing Then

  Set xWSh1 = xWShs.Add
  xWSh1.Name = xStrWSH
  xWSh1.Visible = xlSheetVeryHidden
  Cancel = False

Else

  If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
  Cancel = True
  MsgBox "Save cancelled"
  End If

End If

End Sub