保存工作簿时提醒指定单元格不能为空

  在工作中有时需要把设计好的电子表格给其他用户填写，表格中的一些单元格为必填项。虽然可以通过设置颜色、批注等方式提醒用户，但仍有一些用户会忘记填写。这时可以用通过下面的宏代码，当用户在保存工作簿时进行提醒，如果指定的单元格为空则不能保存工作簿。假如工作簿中“Sheet1”表的E6单元格为必填，步骤如下：

    1.按Alt+F11打开VBA编辑器，在“工程”窗口中双击“ThisWorkbook”。

    2.在代码窗口中输入下列代码：

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Worksheets("Sheet1").Range("e6") = "" Then
    MsgBox "Sheet1表的E6单元格不能为空！", , "提醒"
    Worksheets("Sheet1").Activate
    ActiveSheet.Range("e6").Select
    Cancel = True
    End If
    End Sub

    当Sheet1表的E6单元格为空时，无论用哪种方式（如另存为、快捷键等）保存工作簿，Excel会弹出一个对话框提醒用户并跳转到指定的单元格。