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

例如，您在工作表中設計了一個表格并與同事共享。 您希望您的同事在特定單元格中填寫其姓名，以指示誰輸入了此表單，否則阻止他們保存該表單，您該怎么辦？ 在這里，我將介紹一個VBA宏，以防止在Excel中特定單元格為空白時保存工作簿。

驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！如果特定單元格在Excel中為空，則阻止保存

如果特定單元格在Excel中為空，則要防止保存當前工作簿，可以輕松應用以下VBA宏。

步驟1：按鍵，打開“ Microsoft Visual Basic for Applications”窗口 其他 + F11 同時鍵。

步驟2：在專案瀏覽器中，展開 VBAProject（您的工作簿名稱.xlsm） 和 Microsoft Excel對象，然后雙擊 的ThisWorkbook。 見左圖：

步驟3：在打開的ThisWorkbook窗口中，粘貼以下VBA宏：

VBA宏：如果特定單元格為空，則防止保存

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Update by ExtendOffice 20220907Dim xFileName As StringDim xStr As StringDim xStrWSH As StringDim xWSh As WorksheetDim xWShs As SheetsDim xWSh1 As WorksheetDim xWB As WorkbookxStrWSH = "xHidWSH_LJY"On Error Resume NextSet xWB = Application.ActiveWorkbookSet xWShs = xWB.WorksheetsSet xWSh = xWShs.Item(xStrWSH)If xWSh Is Nothing ThenSet xWSh1 = xWShs.AddxWSh1.Name = xStrWSHxWSh1.Visible = xlSheetVeryHiddenCancel = FalseElseIf Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" ThenCancel = TrueMsgBox "Save cancelled"End IfEnd IfEnd SubCopy請注意：1.在上述VBA代碼的第26行， “表 1” 是具體的工作表名稱，而“A1

是特定的單元格，您可以根據需要進行更改。

2.在你輸入VBA后 的ThisWorkbook，您應該先保存工作簿。 然后您可以將啟用宏的文件發送給其他人。

現在，如果當前工作簿中的特定單元格為空白，則在保存時，將出現一個警告對話框，告訴您“保存已取消”。請參見以下屏幕截圖：

相關文章

如何在Excel中檢查或查找單元格是否包含特定的字符串/文本/單詞？

如果列在Excel中包含特定的文本/值，如何復制行？

如果列在Excel中包含特定值/文本，如何復制單元格？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel