I'm sure there is a way to disable the 'X' (quit) button in the top right-hand corner of the EXcel application (not the 'X' for individual workbooks), or the hook the quit event so that I can run code that shut down the application cleanly? I'm sure a Windows API call is involved but do not know enough about that side of programming to know for sure.
View 4 RepliesI have a fairly elaborate close-down routine for my workbook.
1) Quit out of fullscreen (restore initial state of excel before saving)
2) Hide all sheets but one (enforces cant do anything unless macros enabled)
3) Automatically save without a prompt
4) Close the workbook
I've researched it well and implemented it to the point where it works, but only if the user clicks the excel application close button -- the "X" in the titlebar (hence not in fullscreen).
However, if I launch the process via a userform button click, then for some reason the
DisplayFullscreen = False, Sheets hiding, and save codes have no effect (fullscreen persists, sheets are not hidden, no file is saved) in the Workbook_BeforeClose() subroutine....
I repeat: all the above works fine if process was launched by "native" excel button, but does not have any effect if launched from a userform commandbutton. (?!?!) any ideas what's going on?
I'm including my code so you can get an idea how it's structured.... by it's pretty "by the forum" as far as I can tell...
Private Sub CloseButton_Click()
If(1) Then
'Method 1 - close directly from userform command button
With ThisWorkbook
'.RunAutoMacros (xlAutoClose)
.Close
End With
Else
'Method 2 - set a timer to call a function to perform
' "ThisWorkbook.close" in a function outside of the userform
CustMenuCloseTimer = Now + TimeSerial(0, 0, 2)
Application .OnTime CustMenuCloseTimer, "CustMenu_CloseAction"
End If
End Sub
I have a button on excel form. I need to disable it once user has clicked on it.
I couldnt find name of it on the form anywhere or how to refer it to in the macro.
I want to disable the X button on the top right hand corner in excel, but still allow the user with the option of closing the workbook via File and then scrolling down to EXIT. (Not close). I have disabled most of the functions in the Menu bar Close being one of them.
So only Exit is now enabled. When I click on the X it give me the following message as shown below advising me to go to the File menu to Exit, this bit I am happy with. However this is were my problem begins, when I go to File and Exit I get the same message as below and can not exit the application.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Please select EXIT from the File Menu.", vbCritical, "Cannot Close"
End Sub
i want to dis able and enable this button using three criteria, and auto paste the comment to other sheet.
View 2 Replies View RelatedIs there anyway to easily disable/dim the Excel Close (X) Button as I want to force my users to close an Excel workbook via a button?
View 9 Replies View Relatedhow to disable X button in the Userform?
View 2 Replies View RelatedWhen you push the enter button while in a cell it takes you to the next cell down. is there anyway to disable that.. or make it so when someone pushes the enter button it tabs to the right?
View 9 Replies View RelatedI have a macro associated to clicking a form button.
If possible, if a certian cell value is equal to 0, I want to diable this button. I do not wish for theuser to be able to run the macro associated with that button click.
If found something similar, but in my case, I cannot find the equivalent to CommandButton1, if that's even what I'm using.
If Worksheets("SHEET").Range("A1").Value = "" Then
CommandButton1.Enabled = False
The code below is supposed to disable the appropriate command buttons when it's associated cell values are 0.
Private Sub Worksheet_Activate()
If Range("C17").Value = 0 Then
ActiveSheet.CommandButton7.Enabled = False
ActiveSheet.CommandButton4.Enabled = False
Else
ActiveSheet.CommandButton7.Enabled = True
ActiveSheet.CommandButton4.Enabled = True
End If
Not working ..... no buttons are disabled even with their cells are zero. Did I forget something?
How do you disable or delete a button in VBA code after the button is pressed?
View 9 Replies View RelatedI would like some help on disabling the Esc key in a macro and to disable the Cancel button and X on message and input boxes.
My macro is to insert rows in a protected worksheet and another to run a spellcheck, if my users hit any of the above keys during the macro my worksheet is left unprotected and formulas could be deleted in error. I have pasted a copy of my code below,
Sub InsertRowAboveCopyFormulas()
ActiveSheet.Unprotect ("password")
Dim Rng, n As Long, k As Long
Application.ScreenUpdating = False
Rng = InputBox("Enter number of rows required.")
If Rng = "" Then Exit Sub
On Error Resume Next
ActiveCell.EntireRow.Select
Selection.Resize(rowsize:=Rng).Rows(1).EntireRow. _
Resize(rowsize:=Rng).Insert Shift:=xlUp
Selection.Offset(Rng).AutoFill Selection.Resize( _
rowsize:=Rng + 1), xlFill
Selection.Resize(Rng).EntireRow. _
SpecialCells(xlConstants).ClearContents
ActiveSheet.Protect ("password")
End Sub
I have buttons on each of my sheets, when one is clicked code is called in my module ("modAPI"), and from that code I wish to disable and enable certain buttons, and/or change the caption of those buttons. However when I try to do:
With ws
btnRefresh.Enabled = False
End With
I get Error 424, Object Required. I've tried recording a macro of what I wish to do, and it gives me ActiveSheet.Shapes("btnRefresh").Select, but this doesn't give me the option to enabled/disable or change the caption of the button.
I have two option buttons on a user form, one for a temperature of <250 & one for a temperature >250. I want the option button >250 to be greyed out or have it so that you cannot choose it & option button <250 selected if a certain criteria in a list box is selected. The list box is called Valve_Model & the criteria i want it to work on is if the valve model HPBV Soft is selected & HPBV Soft AC.
View 14 Replies View RelatedI'm using the following code to create an Inputbox but I want to either disable the OK button until an entry is made or not allow a blank entry. Forcing the user to have to make an entry.
If NameTextBoxnew.Value = "" Then
NameTextBoxnew.Value = Application.InputBox("You must input a name/nickname to identify person", "Name")
End If
If SexTextBoxnew.Value = "" Then
SexTextBoxnew.Value = Application.InputBox("You must select a sex(m/f)", "Sex")
End If
If DOBTextBoxnew.Value = "" And AgeTextBoxnew.Value = "" Then
AgeTextBoxnew.Value = Application.InputBox("Please insert a rough age in years", " Date of RSIT")
End If
I have two custom toolbar buttons. I want to disable one of them until the second will be pressed (sorry for my english).
View 3 Replies View RelatedI have a userform with a textbox and a command button. I have used data validations on the textbox. Clicking the command button saves the data in the worksheet. It works well if the user hits tab, enter or down arrow key after entering the data. The problem is, the textbox validations fail to get executed if the focus stays on the textbox and command button is pressed. I want the command button to be disabled until the user has moved the focus away from the textbox -there by executing the validations!
View 3 Replies View RelatedSample code on disabling the close button in Excel workbook?
I tried the Tool -> Protect -> Check Windows method. But, it will disable the maximize and minimize buttons as well. Moreover, it will minimize the workbook.
I am making a timesheet which has a UserForm with textbox and 3 command buttons namely Search, IN and OUT. The program works like this, user type his id no., then clicks on search, once id match command buttons for IN and OUT are enabled. User clicks on IN button then current time which tags as NOW() will be pasted on the worksheet. Same goes with the OUT button. I was able to make them work that way. The problem here now is, the data being entered are vulnerable for data-re entry. What I mean is, if a certain user has already a recorded IN time, if he clicks on the IN time again, the data will be overwritten. Is there a way that once the user has already a recorded IN time, the IN button will be disabled for that user since he has already a recorded IN data?
View 14 Replies View RelatedHow can i disable or lock the button in the attached file by using vba?
View 5 Replies View RelatedI have made an excel workbook detailing team performance that all of my team have access to and that requires updating once a day. The first person to access the workbook each day presses a Command Button that updates the workbook and inserts a time/date stamp. However, other members of the team go into the workbook and update it again the same day which then affects the data being reported.
I know i should probably just sack them for not being able to read the time and date but HR would not like that so is there a way to disable CommandButton1 (ActiveX) so that once it is pressed it is disables until the next day?
I have a button in a template file, that when clicked, saves the file as a new file with file name based on data in certain cells.
I want to disable the ability to save the file with the Save icon or Ctrl-S, but the button still needs to be able to save it (the button is technically doing a Save As, so no problem there). But, I, as the administrator of the template, need to somehow be able to save updates to the template file. Can this be accomplished by coding Save to work when used with a secret key combination that only I know (I can put it in password-protected VB code)?
Then, as if that's not tricky enough, the trickier part is that once the file is saved as the new file (no longer the template) - re-enable the Save button and Ctrl-S so the user can then save it as many times as they want.
I am trying to disable a command button if 4 textboxes are empty. I can make it work if one of the textboxes are empty but not all of them. this is what i have so far.
Private Sub TXT3_Change()
If TXT3.Value = "" Or TXT4.Value = "" Or TXT5 = "" Or TXT6 = "" Then
CommandButton13.Enabled = False
End If
If TXT3.Value "" Then
CommandButton13.Enabled = True
End If
End Sub
After a user has selected the required option buttons, is there a way to disable them without deleting, so that they are still visible (for history tracking) but not modifiable?
'09-- Check metrology info
If Worksheets(" Split Lot Info").MetrologyYes.Value = True Then
Worksheets("Split Lot Info").Shapes("MetrologyYes").Enabled = False
Worksheets("Split Lot Info").Shapes("MetrologyNo").Enabled = False
If Worksheets("Split Lot Info").MetrologyNo.Value = True Then
nResponse = MsgBox("Are metrology steps set up?", vbOKOnly, "Missing information")
Worksheets("Split Lot Info").Shapes("MetrologyYes").Enabled = False
Worksheets("Split Lot Info").Shapes("MetrologyNo").Enabled = False
End
End If
End If
how to disable combobox on radio button click in excel macros'
I have 2 radio buttons: optionbutton1 and optionbutton2 and two comboboxes: Combobox1 and Combobox2.If i select 1st radio button 2nd combobox should be disabled.Vise versa
If i want to make a macro button to run for a certain no. of time pressed, like for 100 times, then the button is disabled, how can this be done?
View 9 Replies View RelatedI am trying to allow uses of a spreadsheet to be able to select one control button which would in turn disable another one via check boxes however the control buttons do not re-enable when the undo check box is selected.
Sub Lead_REC()
' Set screen behaviour
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
' Defer error handling
On Error Resume Next
Err.Clear
How to disable the default close button in a workbook not to affect in my command button close.
I tried already cancel = true but my command button close is also been canceled.
I'm having a bit of a issue at getting Excel to fully shut down. it is still running in the Task Manager. There is a bit of infomation on the net about but i can;t seem to make it go away. I'm using Excel 2007 and running VBA code out of MSaccess 2007
Heres my code.
I Wrote a little program that seems to be working quite nice. The user never sees Excel but will work with userforms. I have lately come across a very irritating problem: If the user clicks on "Exit" I run the code
Application. ActiveWorkbook.Save
Application.DisplayFullScreen = False
Application.Quit
It does the job but about a minute after the whole program has exited and you are "back in windows" I get the. Microsoft Office Excel has encountered a problem and needs to close. error message. Is my file corrupt? Can I fix it? Am I exiting the wrong way?