如果特定單元格在Excel中為空,如何防止保存?
例如,您在工作表中設計了一個表單並與同事共享。 您希望您的同事在特定的單元格中填寫其姓名,以指示誰輸入了此表單,否則阻止他們保存該表單,您該怎麼辦? 在這裡,我將介紹一個VBA宏,以防止在Excel中特定單元格為空白時保存工作簿。
Office選項卡在Office中啟用選項卡式編輯和瀏覽,並使您的工作更加輕鬆...
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
- 重用任何東西: 將最常用或最複雜的公式,圖表等添加到您的收藏夾中,並在將來快速重用它們。
- 超過20種文字功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
- 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
- 分割工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
- 跳過粘貼 隱藏/過濾的行; 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
- 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按星期,日期,頻率等 篩選 用粗體,公式,註釋...
- 超過300個強大的功能; 適用於 Office 2007-2021 和 365; 支持所有語言; 在您的企業或組織中輕鬆部署。
如果特定單元格在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 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後 的ThisWorkbook,您應該先保存工作簿。 然後您可以將啟用宏的文件發送給其他人。
現在,如果當前工作簿中的特定單元格為空白,則在保存時,將出現一個警告對話框,並告訴您“保存已取消”。請參見以下屏幕截圖:
相關文章
最佳辦公效率工具
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
- 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
- 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
- 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
- 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
- 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
- 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!


#21422
網站主持人對此評論進行了最小化
即時報告
0
0

#21423
網站主持人對此評論進行了最小化
即時報告
0
0

#39828
網站主持人對此評論進行了最小化
0
0

#39833
網站主持人對此評論進行了最小化
即時報告
0
0

#39921
網站主持人對此評論進行了最小化
即時報告
0
0

#39931
網站主持人對此評論進行了最小化
即時報告
0
0

#39941
網站主持人對此評論進行了最小化
即時報告
0
0

#28955
網站主持人對此評論進行了最小化
0
0

#28956
網站主持人對此評論進行了最小化
即時報告
0
0

#29775
網站主持人對此評論進行了最小化
即時報告
0
0

#29995
網站主持人對此評論進行了最小化
即時報告
0
0

#30300
網站主持人對此評論進行了最小化
0
0

#30301
網站主持人對此評論進行了最小化
即時報告
0
0

#30302
網站主持人對此評論進行了最小化
0
0

#30303
網站主持人對此評論進行了最小化
0
0

#30304
網站主持人對此評論進行了最小化
0
0

#30477
網站主持人對此評論進行了最小化
0
0

#33994
網站主持人對此評論進行了最小化
0
0

#33995
網站主持人對此評論進行了最小化
即時報告
0
0

#33998
網站主持人對此評論進行了最小化
0
0

#33999
網站主持人對此評論進行了最小化
即時報告
0
0

#34000
網站主持人對此評論進行了最小化
即時報告
0
0

#34720
網站主持人對此評論進行了最小化
0
0

#34721
網站主持人對此評論進行了最小化
即時報告
0
0

#39281
網站主持人對此評論進行了最小化
0
0

#39414
網站主持人對此評論進行了最小化
即時報告
0
0
這裡還沒有評論