我想在有人试图关闭重要的Excel工作表时显示一个对话框。也就是说我想问一下“你有没有记录所有的变化?”让他们有机会点击“是”或“否”。如果他们单击“是”,表单将关闭,但如果他们单击“否”,则会询问他们“请在”更改备注“部分中记录所有更改。”
任何和所有帮助都非常感谢。
答案 0 :(得分:0)
这是您要查找的代码。它询问问题,如果单击否,则取消关闭工作簿:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ureply = MsgBox("Have you Saved All Changes?", vbYesNo)
If ureply = vbNo Then
Cancel = True
End If
End Sub
此代码需要在VBA编辑器上显示“ThisWorkbook”(在“模块”一词上方显示)