特定のセルが空白の場合、Excelで保存を防ぐにはどうすればよいですか？

Excelでフォームを作成し、同僚と共有したと想像してください。情報を入力した人物を識別するために、特定のセルに名前を記入してもらいたいと考えています。そのセルが空白の場合、フォームの保存を防ぎたいのです。このチュートリアルでは、指定されたセルが空白の場合に保存プロセスをブロックするためのVBAマクロの使用方法をご紹介します。

---

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

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

ステップ 1: Alt + F11 キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

ステップ 2: プロジェクトエクスプローラーで、VBAProject (あなたのワークブック名.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. このVBAを ThisWorkbookに入力した後、まずワークブックを保存する必要があります。その後、マクロ有効のファイルを他のユーザーに送信できます。

これで、現在のワークブック内の特定のセルが空白の場合、保存しようとすると警告ダイアログボックスが表示され、「保存がキャンセルされました」というメッセージが表示されます。次のスクリーンショットをご覧ください：

---

関連記事