Wie verhindern Sie das Speichern, wenn eine bestimmte Zelle in Excel leer ist?

Stellen Sie sich vor, Sie haben ein Formular in Excel erstellt und es mit Ihren Kollegen geteilt. Damit klar ist, wer die Daten eingegeben hat, sollen Ihre Kollegen ihren Namen in einer bestimmten Zelle erfassen. Bleibt diese Zelle leer, möchten Sie das Speichern des Formulars verhindern. In diesem Tutorial zeige ich Ihnen, wie Sie mithilfe eines VBA-Makros den Speichervorgang blockieren, wenn die vorgesehene Zelle in Excel nicht ausgefüllt ist.

---

Speichern verhindern, wenn eine bestimmte Zelle in Excel leer ist

Um das Speichern der aktuellen Arbeitsmappe zu verhindern, wenn eine bestimmte Zelle in Excel leer ist, wenden Sie einfach das folgende VBA-Makro an.

Schritt 1: Öffnen Sie das Fenster Microsoft Visual Basic for Applications, indem Sie gleichzeitig die Tasten Alt + F11 drücken.

Schritt 2: Erweitern Sie im Projektfenster das Element VBAProject (Ihre Arbeitsmappenname.xlsm) und Microsoft Excel-Objekte, und doppelklicken Sie anschließend auf DieseArbeitsmappe. Siehe Screenshot:

Schritt 3: Fügen Sie im geöffneten Fenster „DieseArbeitsmappe“ das folgende VBA-Makro ein:

VBA-Makro: Speichern verhindern, 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

Hinweis:
1. In Zeile 26 des obigen VBA-Codes steht „Sheet1“das betreffende Arbeitsblattname, und „A1die betreffende Zelle; Sie können beide Angaben nach Bedarf anpassen.
2. Nachdem Sie den VBA-Code eingefügt haben,DieseArbeitsmappeNachdem Sie Ihre Eingaben vorgenommen haben, speichern Sie die Arbeitsmappe zunächst. Anschließend können Sie die makrofähige Datei problemlos an andere weiterleiten.

Wenn die betreffende Zelle in der aktuellen Arbeitsmappe leer ist und Sie versuchen, die Datei zu speichern, erscheint ein Warnhinweis mit der Meldung „Speichern abgebrochen“. Siehe folgenden Screenshot:

---

Verwandte Artikel