如何在 Excel 中設定：當特定儲存格為空白時，禁止儲存檔案？

假設您已在 Excel 中建立一份表單並分享給同事，希望他們在特定儲存格中填寫姓名，以便識別資料輸入者。若該儲存格留空，您就不希望允許儲存此表單。本教學將示範如何運用 VBA 巨集，在指定儲存格為空白時阻止儲存作業。

---

在 Excel 中於特定儲存格為空白時禁止儲存

若要在 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 列中，"Sheet 1" 為指定的工作表名稱，而 “A1 您可以根據需求，為指定儲存格調整這些設定。
2. 當您將 VBA 程式碼輸入至 ThisWorkbook 在完成操作後，應先儲存活頁簿，再將啟用巨集的檔案傳送給他人。

現在，當您在當前工作簿中儲存檔案時，若特定儲存格為空白，系統將立即彈出警告對話方塊，顯示「儲存已取消」。請參閱下列截圖：

---

相關文章