Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)If Sheet1.Cells(1, 1) = "" ThenMsgBox "单元格内容为必填!"Cancel = TrueEnd IfEnd Sub