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

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)

AlphaFrog

MrExcel MVP
Joined
Sep 2, 2009
Messages
16,450
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
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,525
Messages
5,837,866
Members
430,519
Latest member
abtg1

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
Top