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.
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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!