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

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

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

Show all headers | View raw

> I have found code to prevent closure of an application by clicking on
> the Red X. I placed it on Thisworkbook & it prevents the user from
> closing by clicking on the Red X. 
> Here is the code as written at present:
>
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> If CloseMode = 0 Then
> Cancel = True
> MsgBox "The X is disabled, please click on the Exit button.",
> vbCritical
> End If
> End Sub 
>
> This code is also preventing closure of the workbook/application. I
> think that once the code runs it is not released, I have not found a
> solution.
> I see the code working this way. The user clicks on the X & the above
> message, pops up & that is the end of the process. The user clicks on
> Exit & it closes.  I do have working code to close the
> workbook/application. However when the Exit button is clicked at present
> it goes back to the above code.

Why not just redirect to Call the process fired by the Exit button -OR- Call 
Exit button's _Click event so any closing forces your Exit button procedure to 
run???

-- 
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