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

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.

AlphaFrog

MrExcel MVP
Joined
Sep 2, 2009
Messages
16,400
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
 

Watch MrExcel Video

Forum statistics

Threads
1,129,806
Messages
5,638,475
Members
417,026
Latest member
UDK

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