提供一個例項檔案，已測試透過！完整程式碼如下：1、新建一個模組，在模組中寫入程式碼： Public 儲存狀態 As Integer2、在工作表事件中寫入如下程式碼：Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If 儲存狀態 = 1 Then Cancel = False Else "注意必須儲存第一列有資料，才能檢測到必填寫欄位是否填寫，如果不檢測第一列可修改迴圈終值 Lastrow = Sheets("入職資料").Range("A65536").End(xlUp).Row" MsgBox Lastrow For I = 2 To Lastrow If Sheets("入職資料").Cells(I, 4) = "" Then 儲存狀態 = 0 Sheets("入職資料").Cells(I, 4).Select Cancel = True MsgBox "工作簿儲存失效,有必填寫欄位未填寫,請填寫完整後才能儲存！" Exit For End If Next End If 儲存狀態 = 0 End Sub