Question

EXCEL里面先有一段才程序，是Private Sub Worksheet_SelectionChange(ByVal Target As Range)这个开头的

现在要加一个，表示如果指定单元格（不止一个）未填，工作表将无法保存，要加个before save,我是vb菜鸟，希望能在线答

Answer 1

请用这个：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

在VBA编辑器中，选择“Thisworkbook”，然后就可选择具体的工作簿事件，如下图：

Answer 2

一百℃猪的正解。
说具体点，就是在左边的工程-VBAProject双击ThisWorkbook
接着在工程-VBAProject右边有2个下拉框
第一个选择Workbook
第二个选择BeforeSave
可以设置Cancel变量，Ture为取消原有功能，即不再保存。
False则为保持原有功能，程式执行完毕继续会保存。

Answer 3

一个工作簿只能有一个Private Sub Worksheet_SelectionChange(ByVal Target As Range)
将第二个的代码（不要头、不要尾）加入到第一个的END SUB之前
即可