Cum se previne salvarea dacă o anumită celulă este goală în Excel?
De exemplu, ați proiectat un formular în foaia de lucru și le distribuiți colegilor dvs. Sperăm că colegii tăi își completează numele în celula specifică pentru a indica cine a introdus acest formular, altfel îi împiedică să salveze formularul, cum ai putea face? Aici voi introduce o macro VBA pentru a preveni salvarea unui registru de lucru dacă celula specifică este goală în Excel.
- Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
- Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
- Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
- Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
- Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
- Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
- Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.
Preveniți salvarea dacă o anumită celulă este goală în Excel
Pentru a împiedica salvarea registrului de lucru curent dacă celula specifică este goală în Excel, puteți aplica cu ușurință următoarea macro VBA.
Pasul 1: Deschideți fereastra Microsoft Visual Basic pentru aplicații apăsând pe Alt + F11 tastele între timp.
Pasul 2: În Project Explorer, extindeți fișierul VBAProject (Numele dvs. de registru de lucru.xlsm) și Obiectele Microsoft Excel, apoi faceți dublu clic pe Acest manual de lucru. Vedeți ecranul din stânga:
Pasul 3: În fereastra de deschidere ThisWorkbook, lipiți următoarea macro VBA:
Macro VBA: împiedicați salvarea dacă o celulă specifică este goală
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
Notă: 1. În al 26-lea rând al codului VBA de mai sus, „Foaie 1” este numele specific al foii de lucru și „A1"este celula specifică și le puteți schimba după cum aveți nevoie.
2. După ce introduceți VBA în Acest manual de lucru, ar trebui să salvați mai întâi registrul de lucru. Și apoi puteți trimite fișierul cu macro-activat altora.
Acum, dacă celula specifică este goală în registrul de lucru curent, atunci când o salvați, apare o casetă de dialog de avertizare și vă spune „Salvare anulată". Vedeți următoarea captură de ecran:
Articole pe aceeaşi temă
Cum să verificați sau să găsiți dacă celula conține șiruri / text / cuvinte specifice în Excel?
Cum să copiați rânduri dacă coloana conține text / valoare specifică în Excel?
Cum să copiați celule dacă coloana conține valoare / text specific în Excel?
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!


























