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

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
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,214,720
Messages
6,121,128
Members
449,014
Latest member
Lilcps

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