Sample 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.
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.
Is 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 RelatedI have a workbook that has a macro that needs to run before it is closed. I have a button on my sheet that runs that macro and then closes the sheet. Is there a way that I can disable the "X" at the top right hand of the workbook and force the user to close the workbook via my button?
View 3 Replies View RelatedI am using Excel 2003.
It’s been working perfectly up until around an hour ago. However, now when I close Excel, I get compile errors.
These compile errors seem to be because Excel is trying to access controls in the workbook after it has closed. Since the workbook is closed, VBA can no longer ‘see’ the controls, and therefore it thows up errors.
I’m also getting a similar error on a Worksheets("DataExplorer").unprotect line, which seems to be because the worksheet isn’t there after closing.
These errors only occur when I close the whole excel application using the big cross in the top right. If I just close the workbook (using the smaller cross just below the big cross in the top right of excel), it doesn’t throw up these errors.
Just to clarify: all of the code runs perfectly when Excel is open. The errors are being thrown up for lines of code which run without problem until Excel is closed.
Why I receive a 400 error when the 'excel close' button is pressed in the attached sample.
View 2 Replies View RelatedI cannot make this work in XL2010.
I am opening a second workbook in ReadOnly in the Workbook Open and Closing it in the Workbook BeforeClose.
I don't EVER want to save changes on either workbook.
I need to leave excel open as the macro created a 3rd workbook which the user will need.
[Code]....
I have a problem on auto-sorting my data after clicking the "x" or "Close" button on DataForm. Im creating a command button that trigger a macro to open an autofill DataForm. I want a code that everytime i ADD or EDIT using the DataForm, it will automatically sort the Column A after clicking the "x" or "Close" button. Below is the code of my macro:
Code:
Sub OpenForm()
Sheets("DATA").Select
ActiveSheet.ShowDataForm
End Sub
I am trying to disable printing in an Excel workbook that has 3 worksheets. I do want any worksheets to be able to print.
View 2 Replies View RelatedI Have a spreadsheet in which data is spreading into column A-Z. I would like to disable copy, paste, ^V,^R,^C, ^D for certain columns (Q-U) of the workbook so that user is forced to enter data manually on these columns.
Is there any simple of doing this using VBA.
Is it possible to disable the 'X' close button on inputbox and msgbox
or any way of making the 'X' not close the box
Is there any easy way to disable the close (X) button at the top right of a form.
I've been trying...
Private Sub UserForm_Terminate()
UserForm1.Show
Unload UserForm2
End Sub
but i get a problem when re-opening the userform2??
I have a pivot table that's made visible from a "Drill Down" button on the source worksheet.
View 4 Replies View RelatedI want to disable the three buttons (minimize, restore and close) excel.
[URL]
I want to hide all toolbars and disable the red X upon opening of the spreadsheet, and to restore the main toolbars upon closing. That worked perfectly. (when I used the black code -see below)
I added in the red code as i wanted to disable the red X as well to ensure that users will always close the EXCEL worksheet via a Macro button.
The Macro will save the spreadsheet and close the worksheet and the Private sub should restore the toolbars.
I have a macro that opens all workbooks from one directory and runs a macro for each workbook to clean up the data. I cannot figure out how to take all those open workbooks and save them to another directory and close the workbook. Also, I do not want the macro workbook (xlsm) to save. I only want it to close. I am working in 2007 Excel.
View 8 Replies View RelatedI need to know the command to close a workbook. I have used the information found here: http://www.ozgrid.com/VBA/userform-close.htm to disable closing the workbook via the upper right "X", but I need a button that, when clicked, simply closes the workbook instead.
View 2 Replies View RelatedI 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've added some code the adds a button to a worksheet
Public Sub AddSheetPrintButton()
Dim btn As Button
Dim t As Range
Set t = ActiveSheet.Range(Cells(1, 6), Cells(1, 7)) ' button position
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "sheetPrint"
.Caption = "Print Sheet"
.Name = "Print"
.Font.ColorIndex = 10
End With
End Sub
This works fine until the workbook is shared!
i want to dis able and enable this button using three criteria, and auto paste the comment to other sheet.
View 2 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'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 Replies View RelatedI 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 am using Excel 2010. I am using a shared workbook that was originally created in Excel 2003. This workbook has a command button that is supposed to be clicked to open a userform. However, I cannot even click on the button when opening the shared form in Excel 2010. When the form is not shared, the button works fine.
I have no problems with the button when opening the shared form in 2003 or 2007.
Is there anything I can do to make the command button work while the form is shared and while using Excel 2010?