Workbook_beforeclose Fires Twice
Jun 29, 2007
I've been trying to figure this out all morning, and it's giving me a headache. I'm trying to write some code in the WorkBook_BeforeClose module as shown below:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ans As Integer
ans = MsgBox(prompt:="Do you want to save the changes to " & ThisWorkbook. Name, _
Buttons:=vbInformation + vbYesNoCancel, Title:="X2O")
Select Case ans
Case Is = vbCancel
Cancel = True
Exit Sub
Case Is = vbYes...............
As you can see, I show a message asking the user if they want to save the workbook or not. Clicking the Cancel and the Yes buttons work fine. However, the No button causes the message to be shown again. If I then click No the second time, the workbook closes!
View 6 Replies
ADVERTISEMENT
Nov 5, 2002
I've the following code in my add-in. Strangely the code in the Workbook_Open event executes as expected, but not the Workbook_beforeClose event. May I know the reason?
*********************************************
Private Sub Workbook_Open()
msgbox "hi!"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msgbox "bye!"
End Sub
View 9 Replies
View Related
Oct 8, 2008
I'm trying to use Workbook_BeforeClose event to delete my custom menus.
However, when I try to pass the custom menu caption to the Sub, I get a compile error (Expected Function or Variable).
I believe this has something to do with global variables declaration or something...
View 10 Replies
View Related
Oct 16, 2008
I read two pages on "Workbook_BeforeClose" trying to find a relative answer. I want to able to close a workbook with out saving and not rely on the user pressing the correct button, can this be done?
View 3 Replies
View Related
Jul 13, 2007
I have a combo box that insert certain information in the row corresponding to the active cell. Apparently the events that trigger the code are generated by the combo box ( change or on click) but pressing any key also triggers the events of the combo box.(this is undesirable)
The following code is excuted even when any key is pressed. Any suggestions on how I can go around this problem? (get this code executed ONLY when a combo box event is triggered)
Private Sub cmbLinkInfo_Click()
'The record is inserted only if the user is inside certain range
'The range is inside the affected links table and between the columns C and F
If (ActiveCell.Row > 25) And _
(ActiveCell.Column > 2) And _
(ActiveCell.Column < 7) Then
'<
Cells(ActiveCell.Row, 3).Value = cmbLinkInfo.List(cmbLinkInfo.ListIndex, 0)
Cells(ActiveCell.Row, 4).Value = cmbLinkInfo.List(cmbLinkInfo.ListIndex, 1)
Cells(ActiveCell.Row, 5).Value = cmbLinkInfo.List(cmbLinkInfo.ListIndex, 2)
Cells(ActiveCell.Row, 6).Value = cmbLinkInfo.List(cmbLinkInfo.ListIndex, 3)
'>
End If
End Sub
View 7 Replies
View Related
Apr 12, 2014
Is there an event that fires every time anything is clicked within a userform? I have seen the userform_Click() event however, this only works if the userform is clicked directly and not if something like an image is clicked on top of it.
View 1 Replies
View Related
Nov 2, 2006
Is it possible for a combo box selection, linked to a cell on the same sheet to fire a worksheet change event? I can't seem to find a way to do it.
View 3 Replies
View Related
Feb 3, 2008
I wrote some code to validate an inputfield. I want to keep the focus on this field until a correct (numeric) value is inputed. Therefore I use teh beforeUpdate event instead of the afterUpdate event. Some strange things happen (see code below):
1. When I press enter after putting some non-numeric data in the inpBedrag2 field the msgbox is displayed three times in a row. This doesn't happen when the field loses focus by clicking another field (-> msgbox only displays once = correct behaviour)
2. What's really driving me nuts is the fact that the (more or lesse the same sub) works perfectly.
What am I doing wrong? I'm not getting it. Probably I'm doing something very stupid ... but I can't figure it out myself.
View 9 Replies
View Related
Nov 17, 2007
So, I have a worksheet with a bunch of combo boxes. The code for the worksheet is below. The issue I'm having is that anytime I drag and drop a cell anywhere on the page, every single control on the worksheet triggers. VB runs through all the code on the sheet, TWICE(I used the debugger extensively trying to find a solution), and causes dozens of successive re-calculations of the entire workbook, which has a couple of tables. This happens on any cell drag-drop on the worksheet, or when I click the command button on the screen.
I have no clue what is causing this. Even more bizarre, it seems to trigger a custom function which is located in a separate module, and isn't even utilized on the worksheet in question. I guess this is because it makes the whole workbook re-calculate?
View 7 Replies
View Related
Jun 18, 2014
Why this code DOES NOT work:
[Code].....
But this one DOES
[Code] .....
Why would a click event execute but the same code doesnt fire on a initialize event?
View 3 Replies
View Related
Oct 3, 2007
I have a program that uses the Document Open event to display a custom form. This program is being used on about 50 computers for the past 8 years with no problems. One user has a problem now. They can open the program once and the code fires. But when the user tries to open the same file a second time, the "Microsoft Excel has encountered a problem and needs to close" dialog box is displayed. The document that is recovered has no vba modules and no code in the Document open event. I've uninstalled and reinstalled Office Professional. Shut down all firewalls.
View 9 Replies
View Related
Feb 2, 2010
I need a userform textbox event that fires after I tab or click out of the textbox. Going by the list of options:Beforedragover, BeforeDroporPaste, Change, DblClick, DropButtonClick, Error, Keydown, Keypress, keyup, mousedown, mousemove, mouseup.
I can't figure out which one will do what I want. The change event happens instantaneously which doesn't work. I need to fire off the event when my focus leaves the textbox.
View 11 Replies
View Related
