使用用户窗体关闭工作簿

Question

我已经在Excel中创建了一个用户窗体，因此当我打开xlsm文件时，它仅打开用户窗体，而工作簿被隐藏。

但是，当我使用[X]按钮关闭用户表单时，我希望它关闭工作簿和用户表单而不保存。

当我现在关闭用户表单，并尝试再次打开同一文件时，它说它已经/ stil打开。

启动代码：

Private Sub Workbook_Open()
 Application.Visible = False
 Fordelinger.Show vbModeless
End Sub

结束码：

Private Sub Fordelinger_Deactivate()
Application.Quit
Workbooks("EstimatDOK.xlsm").Close True
End Sub

有人可以帮忙吗？ :)

Answer 1

您可能需要UserForm代码窗格中的此代码

Private Sub UserForm_Terminate()
    ThisWorkbook.Close
End Sub

Answer 2

您可以使用以下代码限制关闭（X）按钮

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "The X is disabled, please use a button on the form to Exit.", vbCritical
    End If
End Sub

要么

Private Sub UserForm_Terminate()
    ThisWorkbook.Close savechanges:=False
    Application.Quit
End Sub