Close workbook with Userform

Question

I have made a User form in Excel, so when i open the xlsm-file it only opens the user form, and the workbook is hidden.

But when i close the user form with the [X]-button I want it to close both the workbook and the user form without saving.

When I close the user form now, and try to open the same file again, it says that it is already/stil open.

Start up code:

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

Close code:

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

Can anyone help? :)

I tried to set the Application.Quit line last, but I still have the same problem. — Martin, Apr 19 '16 at 10:48
Have you tried this solution yet? http://stackoverflow.com/questions/3628252/closing-excel-application-using-vba — Ralph, Apr 19 '16 at 10:49
if you open your task manager and see that excel is still open, you may have to set excel=0, search for "Why won't excel close" — Davesexcel, Apr 19 '16 at 16:11

score 4 · Answer 1 · answered Apr 19 '16 at 10:58

4

may be you wanted this code in the UserForm code pane

Private Sub UserForm_Terminate()
    ThisWorkbook.Close
End Sub

answered Apr 19 '16 at 10:58

user3598756

28,893
4
18
28

Did you get what you needed? – user3598756 Apr 19 '16 at 11:32

Karthick Gunasekaran · Accepted Answer · 2016-04-19T11:10:59.677

1

you can use the below code to restrict close (X) button

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

or

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

edited Apr 19 '16 at 11:10

answered Apr 19 '16 at 10:54

Karthick Gunasekaran

2,697
1
15
25

Close workbook with Userform

2 Answers2