Help need in Exit Button

jilualx

New Member
Joined
Jul 18, 2010
Messages
14
I want to close my workbook only by using the Exit button I made. I disabled the close X on the workbook using

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheet1.Exit1.Activate Then
Cancel = False

Else
MsgBox ("Use Exit Option")
Cancel = True
End If
End Sub

But now when in am asking to close in exitbutton_click() it showing the same MsgBox "Use Exit Option"

Please help me
 

Excel Facts

Create a chart in one keystroke
Select the data and press Alt+F1 to insert a default chart. You can change the default chart to any chart type
Put this in any standard module (not in a worksheet or the workbook modules).
Code:
Public bDoExit As Boolean

Put something this in the worksheet module that has your "exit" command button
Code:
Private Sub CommandButton1_Click()
    bDoExit = True
    ThisWorkbook.Close SaveChanges:=False
End Sub

Put something like this in the ThisWorkbook module
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not bDoExit Then
        MsgBox ("Use Exit Option")
        Cancel = True
    End If
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,517
Messages
6,114,085
Members
448,548
Latest member
harryls

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top