Hoppa till huvudinnehåll
 

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

Författare: Kelly Senast ändrad: 2022-09-07

Till exempel designade du ett formulär i kalkylbladet och delade med dina kollegor. Du hoppas att dina kollegor fyller i deras namn i den specifika cellen för att ange vem som har angett det här formuläret, annars hindrar de dem från att spara formuläret, hur kan du göra det? Här introducerar jag ett VBA-makro för att förhindra att en arbetsbok sparas om den specifika cellen är tom i Excel.


pil blå höger bubblaFörhindra att spara om specifik cell är tom i Excel

För att förhindra att du sparar aktuell arbetsbok om den specifika cellen är tom i Excel, kan du enkelt använda 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 till vänster:

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:


pil blå höger bubblaRelaterade artiklar

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!