I want to save the Excel file as "Excel Macro-Enabled Workbook." Currently, File Format:=xlNormal within the VBA code and the results saves the Excel file as .xls. How do I write the File Format to save the Excel file as "Excel Macro-Enabled Workbook."
Below is an example:
ActiveWorkbook.SaveAs Filename:=Left$(ActiveWorkbook.Name, (Len(ActiveWorkbook.Name) - 4)), FileFormat:=xlNormal, CreateBackup:=False
So I am trying to make a file that when opened will act as a template does and change the file name on start-up.
Typically, the template changes the file name by appending one number (e.g. "Book Template REV 1.1.xltm' upon opening would change the file name to 'Book Template REV 1.11.xlsx'). What I want to do, however, is to custom the name change so I could use the file 'Book Template REV 1.1.xltm' while having it change the file name upon opening to 'Custom Name 567.xlsx', without a user being notified of the change (since typically when a template opens the file, the user has no notification that the file name has changed ever so slightly).
the following scenario.
I am using the following code to save a workbook as a macro enable workbook on the selected path as today's date. But it is being saved as a macro free workbook.
Below is the code in module:
Sub save_file()
Dim tDate As String
Dim FileSaveName As String
Dim fPath As String
tDate = VBA.Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yyyy")
'FileSaveName = Application.GetSaveAsFilename(InitialFileName:=tDate, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
[Code]...
Is it possible to have a macro-enabled workbook to work on ios software(iphone or ipad app)? Currently I cant find any spreadsheet app that will let you have a macro enabled workbook. The code from the posts below would be great if they worked on my phone or ipad.
Scan barcode to excel with date & time stamp in & out.
I have created an Excel Workbook and this Workbook has a VBA code that enforces an expiry date of the workbook (TimeBomb from cpearson.com). So, if the expiry date has passed, the workbook will not open. But since it is VBA related, the expiry date will work only if one has enabled macros. If macros are disabled, the workbook will open regardless of the date.
So, is there a way for Excel to check if macros are enabled? and is there a way for Excel not to open the workbook, if the macros are disabled?
is it possible to protect a macro-enabled workbook with password.
View 5 Replies View RelatedI'm posting a workbook on our network that I want to enable users to go in and update. I have the workbook designed, with entry fields for the data they need to enter, and they then push "Submit" to submit the new data to a hidden tracking log within the workbook.
Many of the users will be complete Excel newbies, and although I haven't posted the workbook yet, I am trying to anticipate possible issues. The first that comes to mind is that the user opening the workbook may not have macros enabled in their version of Excel, and they will get a message, and can't perform the udpate. Is there a way to add a Workbook Open event that automatically enable macros in the workbook when they open it, even if it is for this workbook only?
I would like to hide the standard and formatting toolbars in excel when i enable workbook protection, however I have no idea how to get excel to realise when workbook protection has been enabled, and how to hide the toolbars in VBA also. Also i would like to know how to do the reverse (how to show tooldbars when workbook protection has been disabled)
View 3 Replies View RelatedI prtected several sheets with the xlVeryHidden command I got from you. But when the user does not allow Macros to be executed, also these protections are not executed. Does there exist any solution to this problem? Something like "when macros are not allowed do NOT open file"?
Sub workbook_open()
Application.DisplayAlerts = False
Application. ScreenUpdating = False
Application.AskToUpdateLinks = False
Windows("rechenfile.xls").Activate
Sheets("Daten").Visible = xlVeryHidden
Sheets("Koeffizient").Visible = xlVeryHidden
Sheets("Investitionen").Visible = xlVeryHidden
Sheets("Konsum").Visible = xlVeryHidden
Sheets("Zinssatz_permanent").Visible = xlVeryHidden
Sheets("Preise").Visible = xlVeryHidden
Sheets("Nettotransfers").Visible = xlVeryHidden
Sheets("Beschäftigung").Visible = xlVeryHidden
Sheets("Löhne").Visible = xlVeryHidden
Sheets("Nettoexporte").Visible = xlVeryHidden
End Sub
I have been working on an excel spreadsheet and have come acrss this problem once before too. When I try to open this file it hangs and does not respond. the file size is not too big (490KB). When I disable macros i can open the same file but when the macro are enabled, it hangs. have been trying to look for a solution but just dont know what to do.
View 3 Replies View RelatedWorking with a macro enabled workbook that has many sheets what would be a good code that would save Sheet1 into a new MACRO enabled workbook so that the 'Buttons' (which are linked to macros) on this specific sheet will be the only macros that will be copied to the new workbook as opposed to the rest of the macros that are found in different sheets?
Here is what I g=have:
[Code] ......
I need a macro ie when a user opens a macro enabled workbook,he should be asked for a username and password to access workbook. Administrator should have right to create users with reset password rights
View 5 Replies View RelatedI have this micro enabled workbook and I want to protect it from being copied on other sources.
View 1 Replies View RelatedI am looking for a formula to allow an image file to show when a cell equals a certain text string. If it can be done can it be achieved with multiple images? I am making a database that will calculate from many variables my required glass sizes, given the size and window type and I was hoping to go one step further by making it raise a purchase order from a series of images and other related data.
View 14 Replies View RelatedMy workbook stores data related to items that are all tracked by barcodes. Im using the following code (as part of a larger set of code) to copy data from rows 6 on in column D, E & G to K from one workbook to another. The data in F (Item Names) is found using a formula, by matching the barcode data in the corresponding G cell (on the same row) to another sheet (where the barcodes and Item names are stored). When the data has finished copying over and EnableEvents gets turned back on the F column mostly automatically fills itself in from the formula.
The issue I have however is in certain circumstances there are some items that either dont have a barcode, or the barcode is missing. In this case the user types "none" (not case sensitive), which opens a userform allowing the user to type in an Item name that gets entered into the F cell, overwriting the formula. I need to copy this data over separately to the new workbook. Im looking for code to find these records from row 6 on (either by searching for rows where G equals "none", or rows where F has no formula, and then copy the data in F over to the other workbook to the corresponding row number but offset by the number of records already present in the active workbook (currently being calculated by wbReturnDataLastRow).
[Code] .....
wb is the ActiveWorkbook that the data is being copied to
mybook is the workbook that the data is being copied from
I have tried a range of "sumproduct" and "count if" and I am still not having any luck.
What I would like excel to do is to count what surgery/hospital (B)is referring for what product (F)
help.xlsx
I have got a master workbook and I have written macro to copy and paste data on another workbook. write a macro to save the new workbook to a file path with a file name where both file name and path are stored in master workbook sheet...
View 5 Replies View RelatedI'd like to find out the formula where numerical valued between 1-2000 equals True and numerical under 0 equals False. Examples are in the attachment.
View 3 Replies View RelatedCurrently, all of our data in Excel are linked by using Excel Functions between workbooks and some of the files are so large that it may take 10 minutes to open and copy and paste a cell may take three minutes (which is ridiculous slow).
Pardon my ignorance, my understand of Excel VBA/Marco is about automation. Even i use marco to run the excel, i still need formula in the cell in order to perform the task, right?
Is there a way too get the SaveAs box come up with a marco? When you go too file and save, a box comes up and lets you choose where and what you save. I would like too have it come up with a command button if its possible.
View 3 Replies View Relatedwhen i run this marco, i get a Password msgs box appear, now is there away of running it so that it does not ask for a password, I have tried to unprotect the sheet with a password which works, but it never re-protected it self,
I don't know that much about VBA and my programming knowledge is very limited. I dont want the code re-written, as its someone elses work and it does what i want, i just need to know if an extra line can be entered to stop the password msg box. I.E. it needs to run without asking for the password
I am trying to program a drop down box at the top of a column so that when one of several options in the drop down are selected, a corresponding price list is displayed in the column below.
View 4 Replies View RelatedI would like to use a macro to change links, but i would like to chose a different file each time I run the macro.
View 9 Replies View RelatedI have a cell wich contains "1234". Now I want to look if the value of an other cell 1, 2, 3 or 4 is. Isn't it then should that row be removed.
1234 could also be 124 or 1 or 4 or 6 or ....
I am running the below macro which work fine ! However after running the macro, I do not stay in the cell I was!! How to stay in the selected cell?
HTML Code:Â
Sub INSERT()
ActiveSheet.Unprotect Password:="P@ssw0r!"
ActiveCell.EntireRow.INSERT
Range("FORMULA1,FORMULA2,FORMULA3,FORMULA4").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="P@ssw0r!", AllowFormattingCells:=True
End Sub
I have a line of data (say from B6 - S6) in cell S6, when i put in the word 'complete' i want the whole line of data to move to say line 34 - clearing line B6
View 5 Replies View RelatedI am trying to add a macro that will sort everything by what is in column A (not the first row though) and then have it expand the selection to the entire row and sort it. so basicly it would do the same as me clicking sort and filter and then selecting sort largest to smallest and then selecting yes to expand the selection. I have found some that sort only column A but nothing that changes it all.
View 2 Replies View RelatedI am trying to create a pivot table macro to append to the end of an existing macro I already created which formats the data prior to the pivot table.
Here's the Pivot table setup info if if I was setting up the pivot table manually:
1) Column C (column header row = "D C/D") to be PAGE
2) Column G (column header row = "MN") to be ROW
3) Column A, B and D (column header rows = "TT", "NT", and "CC") to be COLUMN
Sum of Column E (header GA (DA)) and Sum of Column F (header TFA) in DATA ...
I'm looking for is something that searches all worksheets in the work book for occurances of A1 (shovel) and replace it with A2 (spades). The list will be about 100 cells long and the idea would be that I could copy a sheet called "replace" with this list in, run it and standardise all the terms in the list within that workbook. Does it sound feasable?
The other query I'm not sure can be done. When I've tidied all these 'names' to a standard one, I want to sort the data (sometimes rows, sometimes columns) alphabeticalled for instance by the A1 to A10, or by A1 to Z1. Simply using the sort option loses all the references as is doesnt change any cells linked to that cell. The only way I could think to make keep the other cells pointing to where they should is to cut and paste/each row/column in alphabetical order manually.
I saved my worksheet in vba .xlsx and for some reason, when I go to the folder that it's saved in and try to open the file I get an error message saying "excel cannot open the file 'PO Acks fo 09-20-2013.xlsx' because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file"
This is weird because I have another file that I save right before this that opens just fine without an error. Getting frustrating. When I go into the ~Users folder it shows as an excel file and saved as .xlsx.
Where would the link be missing?
Here is the code
Code:
ActiveWorkbook.SaveAs Filename:= _
"G:PURCHASINGSupplier ServicesGroupSharePublic~UsersPO Acks for " & Format$(Date, "mm-dd-yyyy") & ".xlsx"