Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
I would like to prevent the user from closing a userform by clicking the 'X'
on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
DS,
You can use the QueryClose event procedure to catch the form's closing via the 'X' button. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
Use the form's QueryClose event. This has 2 arguments, Cancel and CloseMode.
CloseMode tells you where the close originates from. vbFormControlMenu 0 The user has chosen the Close command from the Control menu on the UserForm. vbFormCode 1 The Unload statement is invoked from code. vbAppWindows 2 The current Windows operating environment session is ending. vbAppTaskManager 3 The Windows Task Manager is closing the application. You can test this, and if it's from an unload statement, close else cancel Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = CloseMode < vbFormCode And CloseMode < vbAppWindows End Sub -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
Great, that will work. I found another method, but it's more complicated
that I require for this project. Thanks, D.S. "Chip Pearson" wrote in message ... DS, You can use the QueryClose event procedure to catch the form's closing via the 'X' button. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
I would like to run my "cmdExit" procedure here, if the user clicks the
close button, but I haven't had any luck. I get a syntax error. Can a procedure be ran from here? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 ' < I would rather call my cmdExit procedure here, and omit the following line frmDataEntry.Caption = "The Close box has been de-activated! Please click the exit button below!" End Sub D.S. "Chip Pearson" wrote in message ... DS, You can use the QueryClose event procedure to catch the form's closing via the 'X' button. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
That should be as easy as Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 cmdExit End Sub If cmdExiit is a button on the form, you would call the Click event and it would then be Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 cmdExit_Click End Sub Either of these work? -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "D.S." wrote in message ... I would like to run my "cmdExit" procedure here, if the user clicks the close button, but I haven't had any luck. I get a syntax error. Can a procedure be ran from here? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 ' < I would rather call my cmdExit procedure here, and omit the following line frmDataEntry.Caption = "The Close box has been de-activated! Please click the exit button below!" End Sub D.S. "Chip Pearson" wrote in message ... DS, You can use the QueryClose event procedure to catch the form's closing via the 'X' button. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform titlebar and closing form
Thanks again. I forgot my exit code was triggered by an 'event'.
D.S. "Bob Phillips" wrote in message ... That should be as easy as Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 cmdExit End Sub If cmdExiit is a button on the form, you would call the Click event and it would then be Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 cmdExit_Click End Sub Either of these work? -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "D.S." wrote in message ... I would like to run my "cmdExit" procedure here, if the user clicks the close button, but I haven't had any luck. I get a syntax error. Can a procedure be ran from here? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Prevent user from closing with the Close box in the title bar. If CloseMode < 1 Then Cancel = 1 ' < I would rather call my cmdExit procedure here, and omit the following line frmDataEntry.Caption = "The Close box has been de-activated! Please click the exit button below!" End Sub D.S. "Chip Pearson" wrote in message ... DS, You can use the QueryClose event procedure to catch the form's closing via the 'X' button. -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "D.S." wrote in message ... I would like to prevent the user from closing a userform by clicking the 'X' on the right side of the titlebar. I need to force closure by using a command button, and running an exit procedure. Is there a property setting that will prevent this / or run the exit procedure when the 'X' is clicked? D.S. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Userform won't show after closing another file | Excel Discussion (Misc queries) | |||
Re-show userform after closing file - code help | Excel Discussion (Misc queries) | |||
Cant get a combo box to update without closing form | Excel Discussion (Misc queries) | |||
Closing a Form | Excel Discussion (Misc queries) | |||
Help with closing a UserForm | Excel Programming |