Hoe voorkomt u opslaan wanneer een specifieke cel leeg is in Excel?

Stel dat u een formulier hebt gemaakt in Excel en dit met uw collega’s heeft gedeeld. U wilt dat zij hun naam invullen in een specifieke cel om aan te geven wie de informatie heeft ingevoerd. Als die cel leeg blijft, mag het formulier niet worden opgeslagen. In deze handleiding laat ik u zien hoe u met een VBA-macro het opslaan blokkeert zolang de aangewezen cel leeg is.

---

Opslaan voorkomen als specifieke cel leeg is in Excel

Om te voorkomen dat het huidige werkboek wordt opgeslagen wanneer een specifieke cel leeg is in Excel, kunt u eenvoudig de volgende VBA-macro toepassen.

Stap 1: Open het venster Microsoft Visual Basic for Applications door tegelijkertijd op de toetsen Alt+F11 te drukken.

Stap 2: Vouw in de Projectverkenner het item VBAProject (Uw Werkboeknaam.xlsm) uit, vervolgens Microsoft Excel-objecten, en dubbelklik daarna op ThisWorkbook. Zie onderstaande schermafbeelding:

Stap 3: Plak in het geopende venster ThisWorkbook de volgende VBA-macro:

VBA-macro: Opslaan voorkomen als specifieke cel leeg is

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

Opmerking:
1. In regel 26 van de bovenstaande VBA-code staat "Sheet1"het specifieke Werkbladnaam, en „A1de specifieke cel; u kunt deze naar wens aanpassen.
2. Nadat u de VBA-code in ThisWorkbookNadat u de gegevens hebt ingevoerd, dient u de werkmap eerst op te slaan. Vervolgens kunt u het bestand met macro-ondersteuning naar anderen verzenden.

Als de betreffende cel leeg is in het huidige werkboek, verschijnt er bij het opslaan nu een waarschuwingsdialoogvenster met de melding „Opslaan geannuleerd”. Zie de volgende schermafbeelding:

---

Gerelateerde artikelen