Để ngăn việc lưu sổ làm việc hiện tại nếu ô cụ thể bị trống trong Excel, bạn có thể áp dụng macro VBA sau một cách dễ dàng.

Bước 1: Mở cửa sổ Microsoft Visual Basic for Applications bằng cách nhấn Khác + F11 chìa khóa trong thời gian chờ đợi.

Bước 2: Trong Project Explorer, hãy mở rộng VBAProject (Tên sổ làm việc của bạn.xlsm) và Đối tượng Microsoft Excel, rồi bấm đúp vào Sổ làm việc này. Xem ảnh chụp màn hình bên trái:

Bước 3: Trong cửa sổ ThisWorkbook đang mở, dán macro VBA sau:

VBA Macro: Ngăn lưu nếu ô cụ thể bị trống

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