Exit Menu Troubles
 

I am in the process of creating an "exit menu" that triggers on the
"before_close" event on the workbook. The menu itself is fairly simple
offering 4 buttons:

1. Email spreadsheet
2. Save spreadsheet
3. Return to the worksheet
4. Exit the worksheet

The email, save, and exit buttons work fine. The trouble that I am having is
the "Return to worksheet" button.

I have tried the following code:

Private Sub ReturnButton_Click()
Cancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

If I try to cancel the exit, the sheet still closes. I can't seem to get it
to return an halt the closing process.

I have tried quite a few permutations, but still nada,

Any suggestions?

WillRn

Exit Menu Troubles
 

Will,

Cancel is not a global variable, but is local to the before_close event, so
you will need to set cancel to true within the event code itself.

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
I am in the process of creating an "exit menu" that triggers on the
"before_close" event on the workbook. The menu itself is fairly simple
offering 4 buttons:

1. Email spreadsheet
2. Save spreadsheet
3. Return to the worksheet
4. Exit the worksheet

The email, save, and exit buttons work fine. The trouble that I am having
is
the "Return to worksheet" button.

I have tried the following code:

Private Sub ReturnButton_Click()
Cancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

If I try to cancel the exit, the sheet still closes. I can't seem to get
it
to return an halt the closing process.

I have tried quite a few permutations, but still nada,

Any suggestions?

WillRn

Exit Menu Troubles
 

Okay, that makes sense. But how do I use my custom menu and stay in the
before_close event so that cancel=true will work?


"Bernie Deitrick" wrote:

Will,

Cancel is not a global variable, but is local to the before_close event, so
you will need to set cancel to true within the event code itself.

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
I am in the process of creating an "exit menu" that triggers on the
"before_close" event on the workbook. The menu itself is fairly simple
offering 4 buttons:

1. Email spreadsheet
2. Save spreadsheet
3. Return to the worksheet
4. Exit the worksheet

The email, save, and exit buttons work fine. The trouble that I am having
is
the "Return to worksheet" button.

I have tried the following code:

Private Sub ReturnButton_Click()
Cancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

If I try to cancel the exit, the sheet still closes. I can't seem to get
it
to return an halt the closing process.

I have tried quite a few permutations, but still nada,

Any suggestions?

WillRn

Exit Menu Troubles
 

Will,

You could declare a public global variable that your button click sets to
true:

At the top of a module
Public glblCancel As Boolean

Then in your sub that show the userform:

Sub TryNow()
glblCancel = False ' initialize
Load UserForm1
UserForm1.Show
'user interacts with the userform
MsgBox glblCancel ' this is set in the click event
End Sub

Private Sub ReturnButton_Click()
glblCancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

Then in the before close event:

....
Cancel = glblCancel
.....

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
Okay, that makes sense. But how do I use my custom menu and stay in the
before_close event so that cancel=true will work?


"Bernie Deitrick" wrote:

Will,

Cancel is not a global variable, but is local to the before_close event,
so
you will need to set cancel to true within the event code itself.

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
I am in the process of creating an "exit menu" that triggers on the
"before_close" event on the workbook. The menu itself is fairly simple
offering 4 buttons:

1. Email spreadsheet
2. Save spreadsheet
3. Return to the worksheet
4. Exit the worksheet

The email, save, and exit buttons work fine. The trouble that I am
having
is
the "Return to worksheet" button.

I have tried the following code:

Private Sub ReturnButton_Click()
Cancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

If I try to cancel the exit, the sheet still closes. I can't seem to
get
it
to return an halt the closing process.

I have tried quite a few permutations, but still nada,

Any suggestions?

WillRn

Exit Menu Troubles
 

That worked,

Thanks a bunch!

"Bernie Deitrick" wrote:

Will,

You could declare a public global variable that your button click sets to
true:

At the top of a module
Public glblCancel As Boolean

Then in your sub that show the userform:

Sub TryNow()
glblCancel = False ' initialize
Load UserForm1
UserForm1.Show
'user interacts with the userform
MsgBox glblCancel ' this is set in the click event
End Sub

Private Sub ReturnButton_Click()
glblCancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

Then in the before close event:

....
Cancel = glblCancel
.....

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
Okay, that makes sense. But how do I use my custom menu and stay in the
before_close event so that cancel=true will work?


"Bernie Deitrick" wrote:

Will,

Cancel is not a global variable, but is local to the before_close event,
so
you will need to set cancel to true within the event code itself.

HTH,
Bernie
MS Excel MVP


"WillRn" wrote in message
...
I am in the process of creating an "exit menu" that triggers on the
"before_close" event on the workbook. The menu itself is fairly simple
offering 4 buttons:

1. Email spreadsheet
2. Save spreadsheet
3. Return to the worksheet
4. Exit the worksheet

The email, save, and exit buttons work fine. The trouble that I am
having
is
the "Return to worksheet" button.

I have tried the following code:

Private Sub ReturnButton_Click()
Cancel = True
Unload ExitOptions
Application.ExecuteExcel4Macro "HALT(True)"
End Sub

If I try to cancel the exit, the sheet still closes. I can't seem to
get
it
to return an halt the closing process.

I have tried quite a few permutations, but still nada,

Any suggestions?

WillRn