关闭SpreadSheet时使用VBA对话框

时间:2014-07-23 13:54:39

标签: excel vba excel-vba

我想在有人试图关闭重要的Excel工作表时显示一个对话框。也就是说我想问一下“你有没有记录所有的变化?”让他们有机会点击“是”或“否”。如果他们单击“是”,表单将关闭,但如果他们单击“否”,则会询问他们“请在”更改备注“部分中记录所有更改。”

任何和所有帮助都非常感谢。

1 个答案:

答案 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”(在“模块”一词上方显示)