Excel で特定のセルが空白の場合は、保存を防止する方法はありますか？

Excel でフォームを作成し、同僚と共有したとします。情報入力者を特定するため、特定のセルに氏名の記入をお願いしたいと考えています。そのセルが空白のままでは、フォームの保存を防ぎたいですよね。このチュートリアルでは、指定されたセルが空欄の場合にExcel での保存処理をブロックする VBA マクロの使い方をご紹介します。

---

Excel で特定のセルが空白の場合、保存を防止する

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

手順1：Alt＋F11キーを同時押しして、Microsoft Visual Basic for Applications ウィンドウを開きます。

手順2：プロジェクトエクスプローラーで、VBAProject（Your ブック名.xlsm）とMicrosoft Excel オブジェクトを展開し、続いてThisWorkbookをダブルクリックしてください。下図をご参照ください：

手順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 行目では、"Sheet1"は対象のワークシート名であり、「A1」は対象のセルです。必要に応じて変更できます。
2。ThisWorkbookVBA コードを入力したら、まずワークブックを保存してください。その後、マクロが有効なファイルを他者に送信できます。

これにより、現在のブック内の特定のセルが空白の場合、保存を試みると警告ダイアログが表示され、「保存がキャンセルされました」というメッセージが表示されます。下図をご参照ください：

---

関連記事