forms - 在 VBA (Excel 2007) 中关闭表单时执行代码

Question

我想在用户使用窗口右上角的 x 按钮关闭表单时执行一些代码(打开 Excel 电子表格时加载表单，并且它隐藏了 Excel。我想退出表单关闭后立即显示 excel，或者至少再次显示 excel，以便用户可以手动退出)

查看表单属性，Unload 属性不存在，我也无法弄清楚如何创建一个在表单关闭时执行的函数。

不幸的是，用 VB 进行编码不是一种选择，它必须是 VBA。

我知道取消隐藏 Excel 或直接退出它所需的代码，但不知道如何将其与卸载事件联系起来。

Answer 1

您可以使用用户窗体的QueryClose事件，如下所示:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        ' Your codes
        ' Tip: If you want to prevent closing UserForm by Close (×) button in the right-top corner of the UserForm, just uncomment the following line:
        ' Cancel = True
    End If
End Sub

您还可以像这样使用 vbFormControlMenu:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        'Your code goes here
    End If
End Sub