Excelで特定のセルが空白の場合に現在のブックが保存されないようにするには、次のVBAマクロを簡単に適用できます。

ステップ1：を押してMicrosoft Visual Basic forApplicationsウィンドウを開きます 他の + F11 その間にキー。

ステップ2：プロジェクトエクスプローラーで、 VBAProject（ワークブック名​​.xlsm） と Microsoft Excelオブジェクト、次にダブルクリックします このワークブック。 左のスクリーンショットを参照してください。

手順3：ThisWorkbookウィンドウを開いて、次のVBAマクロを貼り付けます。

VBAマクロ：特定のセルが空白の場合に保存を防止する

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

ご注意：
1. 上記の VBA コードの 26 行目に、 「シート1」 は特定のワークシート名で、"A1"は特定のセルであり、必要に応じて変更できます。
2. VBA を入力した後 このワークブック、最初にワークブックを保存する必要があります。 その後、マクロを有効にしたファイルを他のユーザーに送信できます。