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