如果特定单元格在Excel中为空，如何防止保存？

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