Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #110988

Re: Using the red X (Upper right hand corner) for another purpose.

Show all headers | View raw

> Ok. Here are the answers to your questions.
> Is the Referrals workbook the only one open? - Yes
> Where is the Exit_Referrals sub located? - I t resides in module 1
> Why do you add vbCr to your message Prompt? - To start a new  line in
> the message. (Open to suggestions)
> Here is the before close code:
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> 'Part of code to call a pop up calendar.
> On Error Resume Next
> Application.OnKey "+^{C}"
> Application.CommandBars("Cell").Controls("Insert Date").Delete
> Call Exit_Referrals
> End Sub
>
> I compared the original post to what I currently have, & noticed a  big
> difference. I am SO SORRY. Here is the current code:
>
> Option Explicit
>
> Sub Exit_Referrals()
> Dim MsgBoxResult As String
> If MsgBox("Would you like to Exit the Referral Workbook?" & vbCr,
> vbYesNo, "Voc. Rehab. - Referral") = vbNo Then
> Exit Sub
> Else
> Sheets("TOC").Select
> Application.Calculation = xlCalculationAutomatic
> ThisWorkbook.Close SaveChanges:=True
> Application.Quit
> End If
> End Sub
> Regarding "Why are you NOT using a global variable to track if the
> MsgBox result has already been trapped?" _ I did not know about global
> variable.

Ok, that helps!

If you close the workbook itself -OR- if you quit Excel while the workbook is 
open the workbook's _BeforeClose event fires. Other things are already in place 
for it to send keystrokes, and delete a custom menu added to the Cells 
commandbar. Where's the code to set this up?

Better:
  Can you post a download link where I can retrieve a copy of the Referrals 
workbook with 'dummy data' and detailed comments about what it does? (Assumes 
this workbook performs task-specific processes that are fiscal period related) 
If so, I'll review/revise it for optimal efficiency and post a link for 
download.

-- 
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
  comp.lang.basic.visual.misc
  microsoft.public.vb.general.discussion

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1752ea28@excelbanter.com> - 2019-06-21 19:57 +0100
  Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-22 22:28 -0400
    Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17566e28@excelbanter.com> - 2019-06-24 12:48 +0100
      Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17567c38@excelbanter.com> - 2019-06-24 13:20 +0100
        Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-24 13:52 -0400
          Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1756dea8@excelbanter.com> - 2019-06-24 20:08 +0100
            Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-24 16:16 -0400
              Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1757bfa8@excelbanter.com> - 2019-06-25 12:23 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.1757f7e8@excelbanter.com> - 2019-06-25 15:54 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17596589@excelbanter.com> - 2019-06-26 18:32 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-26 16:36 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175a62a8@excelbanter.com> - 2019-06-27 12:07 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-27 12:37 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175ab708@excelbanter.com> - 2019-06-27 17:59 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175bb428@excelbanter.com> - 2019-06-28 12:32 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 12:16 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175c0888@excelbanter.com> - 2019-06-28 18:28 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 15:00 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-06-28 15:30 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.175fa8a8@excelbanter.com> - 2019-07-01 12:07 +0100
                Re: Using  the red X (Upper right hand corner) for another purpose. GS <gs@v.invalid> - 2019-07-01 08:09 -0400
                Re: Using  the red X (Upper right hand corner) for another purpose. FrancisM <FrancisM.17614078@excelbanter.com> - 2019-07-02 17:26 +0100

csiph-web