Hur kan jag förhindra att spara om en specifik cell är tom i Excel?

Föreställ dig att du har skapat ett formulär i Excel och delat det med dina kollegor. Du vill att de ska fylla i sina namn i en specifik cell för att identifiera vem som skrivit in informationen. Om cellen lämnas tom vill du förhindra att formuläret sparas. I den här handledningen kommer jag att visa dig hur du använder ett VBA-makro för att blockera sparprocessen om den angivna cellen är tom i Excel.

---

Förhindra att spara om specifik cell är tom i Excel

För att förhindra att den aktuella arbetsboken sparas om den specifika cellen är tom i Excel, kan du enkelt tillämpa följande VBA-makro.

Steg 1: Öppna Microsoft Visual Basic for Applications-fönstret genom att trycka på andra + F11 nycklar under tiden.

Steg 2: I Project Explorer expanderar du VBAProject (Ditt arbetsboknamn.xlsm) och Microsoft Excel-objektoch dubbelklicka sedan på Denna arbetsbok. Se skärmdump:

Steg 3: Klistra in följande VBA-makro i fönstret ThisWorkbook:

VBA-makro: Förhindra sparar om en specifik cell är tom

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

Notera:
1. I den 26:e raden i ovanstående VBA-kod visas "Sheet1" är det specifika kalkylbladets namn och "A1"är den specifika cellen, och du kan ändra dem efter behov.
2. När du har skrivit in VBA i Denna arbetsbok, bör du spara arbetsboken först. Och sedan kan du skicka den makroaktiverade filen till andra.

Om den specifika cellen är tom i den aktuella arbetsboken kommer en varningsdialogruta ut när du sparar den och säger "Spara avbruten". Se följande skärmdump:

---

Relaterade artiklar