Custom Toolbar Code Prompts To Save
Dec 21, 2006
I have added a toolbar to an excel application that the company uses. I need this toolbar only to be accessed to this application and not any time that you open excel. I have used the following
Private Sub Workbook_Open()
Application.CommandBars("Rithin-Toolbar2006").Enabled = True
Application.CommandBars("Rithin-Toolbar2006").Visible = True
go_cover
End Sub
Private Sub Workbook_close()
Application.CommandBars("Rithin-Toolbar2006").Delete
Application.CommandBars("Rithin-Toolbar2006").Enabled = False
Application.CommandBars("Rithin-Toolbar2006").Visible = False
End Sub
This works but only If I accept yes when it prompts me to save changes to the workbook. Each time I open the workbook and close it, it prompts me to save changes to the workbook. I dont want to force a save on the workbook, meaning have code that will save the workbook before closing. I want it such that if the user opens the workbook, and makes no changes, he/she should just close it with no questions asked.
View 6 Replies
ADVERTISEMENT
Jun 2, 2006
I had made a Workbook with my own command Bars, and everthing is ok .. the problem is when i copy it to anthor pc. i have got an error msg. and when i check the code (debug) i've found the problem is with that command bars ( it's missing )
and now the Q is:
how to copy a workbook with it's all add-in's and customised bars ?
View 2 Replies
View Related
Sep 2, 2008
I want to be able to create a range of VBA userforms to quickly perform long tedious tasks. I want these userforms to be accessed from a nice tidy toolbar.
I have done this and it looks nice and works well. What I would like to be able to do is have my custom toolbar of userform controlled functions be transferable so that if someone else wants my toolbar and attached functions they can install it easily much the same way you can do with an add in.
Is this sort of thing possible or does it require them to manually install all my userforms, modules and toolbar? If it is possible what sort of things should I be looking at?
View 9 Replies
View Related
Sep 19, 2009
I have a an Excel workbook (wb1) with 4 worksheets.
I also have a personal.xls that contains 4 worksheets.
wb1 has volatile functions.
I have calenders, dropdown lists, read from a file that is closed, etc..
When I open wb1, look at it (I do not make any changes by hand) then close it, it gives me the " Do you want to save?" prompt.
I have tried numerous codes to stop it and I can not get it.
I need it to give me the prompt if I have made a change and not give me the prompt if it is just a change from the volatile functions.
I cannot just tell it to save in the background because my boss does not want the date changed if it is just looked at.
The user opens numerous files when searching for a file that is almost what he needs, then he saves it with a new name and goes from there. Or he just opens numerous files to get ideas on how to make the new file.
The user cannot have to do anything to make it work.
I know that the code will need to be copied to any existing workbooks. I have the code to do that.
That would be done as the files are created to new ones. Also when he is starting from scratch the code would be in the template he uses. Eventually all of the files would be converted
Private Sub workbook_Open( )
Me.Saved = True
End Sub
Private Sub Workbook_Open()
ThisWorkbook.Saved = True
End Sub
View 9 Replies
View Related
Oct 2, 2007
Workbook 1 has references to workbooks 2,3,4,5,6. When I click the top cross and choose Save All with Workbook 1 active, the deactivate event in workbook 6 runs to the end as it tries to close, but it can't close because workbook 1 references it. So nothing further happens until I click the top cross again. Then everything closes without any more prompts. Not good. If I could ensure workbook 1 closes first that should solve the problem. There may be another way of course.
I have attached 2 blank files to show the problem. test1 references test2. Open test1. It will open test2. Make a change to both files, activate test 1 and click the top cross, choose save all. Nothing happens usually.
View 4 Replies
View Related
Oct 28, 2009
I have many worksheets in a workbook that need to be saved if a user changesanything on them.
These sheet names all end in "....SD" and the code needs to only run on those sheets. I have learned alot from the forum but not enough, just yet . . This is what I have so far:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sht As Object
For Each sht In ThisWorkbook.Sheets
If LCase(Right(ws.Name, 2)) = "sd" Then
MsgBox(Prompt:="You must save changes. Save now?", Buttons:=vbYesNo) = vbYes Then ThisWorkbook.Save
End Sub
It doesn't like the 2 "Then's". (Don't laugh - I'm trying.)
View 8 Replies
View Related
Jul 28, 2006
I have created 2 toolbar buttons which were attached to a macro that ran the original 'EditTenancy'. I now want to change these to use anew macro 'EditExistingTenancy' but cannot see how to do it as when I right click now I only get a toolbar list.
Do I have to creat 2 new toolbar buttons?
How do I get rid of the non-functioning ones?
View 4 Replies
View Related
Jan 11, 2007
I'm preparing a model which has a few macros built-in. Let's call them Macro A, B, C etc. I want to trigger them via buttons on a custom toolbar (no problem) which a recipient of the model, on another PC, will be able to see (problem).
It was suggested to me that in Customize mode I can right click the custom toolbar and then click "Attach..." but this always causes Excel (2002) to freeze; I must then close Excel.
Someone else suggested that a better way is to have VBA code create the toolbar "on the fly" automatically when a recipient opens the spreadsheet. This is too advanced for me to write at the moment. Could someone give me a steer?
View 9 Replies
View Related
Sep 25, 2007
I created a custom toolbar called "PAT" for users. It has 5 custom buttons-save, import,submit,close,help. I attached it to the toolbars as instructed at the site http://www.ozgrid.com/VBA/toolbar-remove-restore.htm. I need to keep the worksheet tabs showing so I cannot use the application.DisplayFullScreen = True. For each worksheet that the user will be viewing, i have the following
Private Sub Worksheet_Activate()
Application.CommandBars("PAT").Enabled = True
Application.CommandBars("PAT").Controls("Import").Enabled = False
Application.CommandBars("PAT").Controls("Submit").Enabled = False
Application.CommandBars("PAT").Controls("Save").Enabled = True
Application.CommandBars("PAT").Controls("Help").Enabled = True
Application.CommandBars("PAT").Controls("Close").Enabled = True
End Sub
ON my workbook activate code and workbook open code, I remove all native toolbars so only the one i created is showing, using Application.CommandBars("PAT").Enabled = True
On workbook deactivate I have the following.................
View 4 Replies
View Related
Feb 8, 2008
I have created a macro and would like to use it in other workbooks. Can this be saved to the tool bar for this purpose?
View 2 Replies
View Related
Mar 31, 2008
I have written VBA to create and populate a custom toolbar when a worksheet is opened, and to close when it is closed. I need to know if its possible to disable the close button of the toolbar, as I don't want any of my work colleagues accidentally closing the toolbar and then coming to me to ask me how to reopen it.
View 4 Replies
View Related
Apr 6, 2008
I am tring to find the xlb file, but it does show in my laptop. I open and close the xl App, but still could not find it
View 3 Replies
View Related
Oct 7, 2008
The file who containd the toolbars informations is C:Documents and Settings<<USER>>Application DataMicrosoftExcelExcel.xlb
I copied this file to another computer and my custom toolbar appeared there.
In a file, I created a custom toolbar with submenus. It is possible to save this toolbar with file, so that I can use the file on other computers without the need to create each time this bar.
View 2 Replies
View Related
Apr 14, 2009
I have created a workbook and made a custom toolbar to perform the macro functions for the sheets in the workbook. Everything works great for me, but I want to attach the custom toolbar to the workbook so that whenever someone else pulls up the workbook they pull up the custom toolbar too.
I used the tools menu, clicked customize, toolbars, attach, selected the custom toolbar and clicked copy.
No toolbar appears.
I can select View, Toolbars, and select the custom toolbar, then the toolbar appears, but when I close the sheet the toolbar remains.
When someone else opens the sheet, the toolbar appears without any "buttons." It is an empty toolbar.
The help text isn't helping because the instructions for attaching a custom toolbar to a worksheet (tools/customize/toolbars/attach/copy) do not attach the toolbar to the workbook.
View 6 Replies
View Related
Oct 6, 2009
A couple years ago i made a giant spreadsheet and had 2 custom toolbars to run macros from to manipulate the sheet.
This year i re-did the sheet, meaning all my old data was replaced (it's a giant schedule basically).
However, the Macros in the custom toolbars stayed exactly the same and performed the same function and are directed to the exact same cells, rows, columns, etc..
But now when i hit the buttons on the custom toolbars to run my macros, i get the following message... all the time...
**
A document with the name "NHLsheet.xls" is already open. You cannot open two documents
with the same name, even if the documents are in different folders.
To open the second document, either close the document that's currently open, or rename one of the documents.
**
Trouble is, i have only 1 document open!
There's something in the macros that thinks i'm trying to open a new document but i'm clueless as to where or why.. they are very simple macros
that do not require the opening of any new workbooks..
All they do is point to another sheet within my open workbook, "NHLsheet", copy a particular row from that sheet, and paste it to a specific spot onto another sheet within my workbook, "NHLsheet".
Here is a sample:
View 14 Replies
View Related
Oct 3, 2012
I have a custom toolbar with a button on it that I want to open a userform from.
I have tried this macro
VB:
Code:
Sub Admin_Show()
frmAdmin.Show
End Sub
[Code]....
View 3 Replies
View Related
Jun 6, 2007
I work with excel docs that have alot of sheets. I managed to create a vba form that has a listbox populated with the sheet names, that when clicked goes to the respective sheet. The problem is that when the form is open i cannot focus on the excel sheet - the form needs to be closed first.
1 ) Is it possible to make an excel vba form dockable (so it could be displayed on the right where help would be)
Or
2) Would it be possible to create a drop down in the toolbar that would have the sheet names.
I think the latter is a cleaner solution (if possible).
View 9 Replies
View Related
Oct 26, 2006
I was making a custom Menu Bar in excel. In order to troubleshoot I executed the code a no. of times, resulting in multiple but same menu bars in excel application. Now the problem is that even if I quit excel, the menu bars dont seem to go..How do I get rid of them.
View 2 Replies
View Related
Nov 8, 2006
I am having trouble assigning a tooltip to a button on a custom toolbar. I have found an example in the forum, but it dont seem to work for me.
Sub Toolbartext()
With Toolbars("Field Tracking Tools")
.ToolbarButtons(1). Name = "Displays Field Officer Data Entry Form"
End With
End Sub
View 2 Replies
View Related
Aug 14, 2007
Is there a way to insert a toggle button into a custom tool bar?
View 4 Replies
View Related
Mar 4, 2008
how to manage a custom faceid. Though, I am not too sure as to how to assign an actual icon to a custom toolbar. I can try the pasteface method; though as the source file is a .png; the picture might be too small.
View 2 Replies
View Related
Apr 12, 2008
Trying to write a VBA code to add a new menu item with submenus on the Standard toolbar when Workbook_Open and then deleting it (_Before close). Just having trouble with the creating of the menu item. Here is what I have so far:
Sub Workbook_Open()
...
Dim menuitem As CommandBarPopup
Set Menu = Application.CommandBars("Menu Item").Controls.Add (Type:=msoControlPopup, Before:=13)
...
End Sub
View 2 Replies
View Related
May 17, 2008
How can I save a new xlt or xls so that the toolbar settings I am viewing will always reload with excel. I have tried purging all items from my xlstart locations, but unwanted (and unchecked) toolbars keep reappearing when I restart excel.
View 4 Replies
View Related
Mar 12, 2007
I have a custom toolbar containing several buttons which run several macros. Works fine except on exiting the programme and re-opening the workbook, if I try to use the custom buttons I get an error message which tells me it cannot find the ' name of workbook, name of macro' macro I then have to re-assign the macro which has been there all the time but without the file name in front of it.
View 7 Replies
View Related
Oct 13, 2007
How do you control the orientation of a floating toolbar? The code below puts the elements horizontally, while I'd like to make the toobar have a vertical format (one macro per line). I'd also be interested if there's a way to do sub-menus to organize the toolbar buttons better. how to revise the code below, and/or a pointer to where I can read about this. I tried searching google and this forum to no avail.
Option Explicit
Public Const ToolBarName As String = "My Toolbar"
Sub Auto_Open()
Call CreateMenubar
End Sub
Sub Auto_Close()
Call RemoveMenubar
End Sub
Sub RemoveMenubar()
On Error Resume Next
Application.CommandBars(ToolBarName).Delete
On Error Goto 0
End Sub
Sub CreateMenubar()......................
View 2 Replies
View Related
Jun 28, 2008
I would like to use the attached "menu maker" file I found on Ron De Bruin's site using a Sheet to build the menu, yet be able to place it before the Help menu as suggested by this site [url] by finding the position of Help.
I have amended the code yet receive a "Compile error: Variable not defined" error.
View 6 Replies
View Related
Jul 19, 2006
I would like to prompt the user of my Excel Macro, with a particular message which would appear while the code is running in the background, and then dissapear once the code if finished executing.
For instance:
I prompt the user "Do you want to run a new Query", Yes, No, or Cancel.
If they select yes, I would like a message appear that would advise them that "this may take some time, please be patient" and possibly give them a button that would allow them to cancel the process, all the while this process is running. Once the query is complete, the message would dissapear, or if they click on the cance button.
View 9 Replies
View Related
Jun 23, 2005
I am using the following code to create an Excel toolbar custom control Button. What would be the VBA code to change the color of the image I have chosen? ....
View 6 Replies
View Related
Sep 20, 2006
I created a custom toolbar button which works perfectly.
Because I needed to save each workbook as a specific workbook this is taken care of by the vb code.
I would like when the button is pressed for the original workbook template to be opened.
At this moment if I have a blank workbook or no workbook open and I press the button the programme opens a version of the workbook but not the template version how do I point Excel at the templates.
View 3 Replies
View Related
Aug 12, 2006
Image size appears in button(msocontrolbutton) of custom toolbar Excel 2000 is very small and blurred using below code. How I can increase size of image in button (msocontrolbutton) as well as brightness of image in custom toolbar? I am able to increase size of button using width and height property but image appears in center of button as 16X16. How to fit image to button(msocontrolbutton)?
Const cImgCommandBarID As String = "TMC Img Toolbar"
'Image code
Dim cbImgBar As CommandBar
Set cbImgBar = CommandBars.Add( Name:=cImgCommandBarID, Position:=msoBarTop)
'cbImgBar.context = 1000
Dim cbImage As CommandBarControl
Dim imgTool As Shape
Dim sFileName, ImgSheet
sFileName = ActiveWorkbook.Path & "ImagesABC.jpg".....................
View 2 Replies
View Related
