Auto-Save Code Not Saving
Nov 14, 2006
if someone would review the code below and tell me why it does not cycle an autosave more than once. It is supposed to autosave automatically every five minutes but for some reason beyond me it does not. I did not author this but picked it up in a different forum.
Option Explicit
Public vartimer As Variant
Const TimeOut = 1 'set in minutes to whatever amount of time is desired
Sub Timer()
vartimer = Format(Now + TimeSerial(0, TimeOut, 0), "hh:mm:ss")
If vartimer = "" Then Exit Sub
Application .OnTime TimeValue(vartimer), "SaveOpenWorkbooks"
End Sub
View 9 Replies
ADVERTISEMENT
Aug 1, 2013
My company has files that are already in use. I don't know too many details about how they work, but somehow saving the file will screw it up and my boss has to go back and reset something or other to correct it. Obviously it's connected to some other software somewhere. The code below will block Save and Save-As. BUT how do I get the file to hold onto the code without actually saving the file after the code is added (since the file shouldn't be saved)?
VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then
Cancel = True
[Code].....
View 1 Replies
View Related
May 7, 2009
Currently I have an excel form that I am working on. I just figured out how to get it to open when I open the workbook. I am wondering is there code out there that will prompt excel to auto save the worksheet that the form writes to when the "OK" button on my form is clicked. I want to be able to save the data without having to rely on the user to remember to save everytime entry is complete. if there is a code for this function, where would I place it in my code listing?
View 2 Replies
View Related
Oct 6, 2009
Is there a way to have excel automatically save the workbook every 5 minutes or so? I'm not talking about the backup option (tools-options-save) I mean do a hard save?
Or would this warrant a timed VBA code? If so, can someone build me one quickly? I'm kinda in a time crunch - sorry for last minute notice. Co-worker just deleted 8 hours of work bec "she didn't" know to save it....
View 5 Replies
View Related
Dec 31, 2009
The dialog box comes up with file name formatted correctly and shows .xls as file type but when you choose save the dialog box disappears as if the file was saved but the file never gets saved.
View 3 Replies
View Related
Aug 4, 2009
I have a form which has col A Surname Col D Post Code Col E The month (for example)
through a formular this gives the unic customer reference number surnamepostcodemonth given in col G but when I save the document I have to copy and paste the value in G1 for the file name is there away of pressing Save As and it auto fills the file name?
the actual value in the field G1 is
='Raw Data'!D2&" "&'Raw Data'!E2&" "&TEXT(('Raw Data'!F2),"MMMYY")&" "&'Raw Data'!G2
I obviously want the result "Smith TW6 Jul09" to be the file name when I save it..
View 9 Replies
View Related
Apr 4, 2007
I try to save another workbook, say Book_B, inside a BeforeSave routine for say Workbook A. It works fine when triggered by the CommandBar for saving A, but skips the "Save" when triggered by saving A from another workbook, say Book_1. Is this my fault, or some inherent limitation in Excel, and if so:
Following is some simplified code to illustrate the situation:
This is the code for Book_A:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fName As String
fName = "Book_C"
For Each w In Workbooks
If w. Name = "Book_B.xls" Then w.SaveAs Filename:=fName
Next w
End Sub
This is the code for Book_1:
Sub Book_A_saving()
For Each w In Workbooks
If w.Name = "Book_A.xls" Then w.Save
Next w
End Sub
View 7 Replies
View Related
Dec 14, 2006
I want to be able to have the Save As dialog box come up, but with a File Name already chosen, so that the user can save it as this File Name in any location he/she wishes. I can get the Save As dialog box coming up with my code, but I don't know how to automatically enter the File Name
View 4 Replies
View Related
Jan 19, 2008
In my program I have prevented the user from saving the Workbook with the following code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim p As String
Cancel = True
Do While Cancel = True
p = InputBox("Enter password to save file:", "Password Required To Save", "")
If p = "Enter Password Here" Then
Cancel = False
Else
yn = MsgBox("Wrong password. Try again?", vbYesNo, "Invalid Password")
If yn = vbNo Then
Exit Sub
End If
End If
Loop
End Sub
I also need to prevent the user, when they use the save as, from saving certain worksheets. Ex: There are 6 worksheets in the workbook. I only want them to be able to save the first three. Issues: One of the workbooks that I want to allow them to change has a tab name that changes frequently.
View 2 Replies
View Related
Jun 29, 2003
I have a 'Customer Quote' template form which requires a new number every time it gets saved, this will need to be a 'read only' file.
Can I also have it auto name itself this consecutive number automatically every time it is 'saved as'.
View 5 Replies
View Related
Jan 14, 2011
what format is used when you save an excel file as "unicode." I am using excel 2002 on XP.
I have been asked to provide a UTF-8 formatted unicode file for use by another program but I am not sure which formatting excel uses.
View 3 Replies
View Related
Nov 2, 2009
Each of the worksheets in my model use A1 as a control cell for any errors and inconsistencies. My aim is to disable save and close commands in case A1 is not equal to 0 in any of the worksheets.
The code I currently use for that purpose is as follows.
View 2 Replies
View Related
Jul 17, 2014
I have a log that is used to keep when items are due. I do not want my coworkers to delete items once they have been entered and saved. So the excel sheet I am trying to make has certain cells in a range that I want to autolock after saving. For example: the cell range is G3:J402. I enter Customer Name in Cell G3 and the Date the job was received in H3. Once i enter that information I want it locked once i save it. Then later on, my coworker completes the job and enters the date in I2. And again once she saves this she shouldn't be able to edit this information. Then again another day she comes and enters the date on I3 when the product has been shipped out.
While all of the above activity is going on, new customers are continuously being in added in G4, G5....
Also, if possible the date in the H range should be the date items are entered in G (this would be a nice added feature). I've included the file for review. I'm running Microsoft Excel 2010
[URL]
View 1 Replies
View Related
Jul 17, 2014
I have a log that is used to keep when items are due. I do not want my coworkers to delete items once they have been entered and saved. So the excel sheet I am trying to make has certain cells in a range that I want to autolock after saving. For example: the cell range is G3:J402. I enter Customer Name in Cell G3 and the Date the job was received in H3. Once i enter that information I want it locked once i save it. Then later on, my coworker completes the job and enters the date in I2. And again once she saves this she shouldn't be able to edit this information. Then again another day she comes and enters the date on I3 when the product has been shipped out.
While all of the above activity is going on, new customers are continuously being in added in G4, G5....
Also, if possible the date in the H range should be the date items are entered in G (this would be a nice added feature). I've included the file for review. I'm running Microsoft Excel 2010.
I have tried hard to find other solutions with links at the following places but not exactly what I'm desiring:Auto lock cells after data entry when file saved...
Auto lock cells after data entered and SAVED.
Auto Lock Selected Range of Cells After Saving
I should also mention that most solutions either provide for locking/unlocking of all cells but not a selected range. Or they provide for locking/unlocking of a selected range but not for a specific sheet or not after you have saved the workbook.
This is unique in that I'd like it to autolock after i press the save button for a SPECIFIC number of cells. I just wanted to clarify as to not make others think that I haven't used the search function.
View 1 Replies
View Related
Feb 17, 2008
I have some code and then
ChDir "W:MET Logbook"
ActiveWorkbook.SaveAs Filename:= _
"Micro Evaluation " _
& Format(Date, "(mm-dd) ") & Format(Time, "hh.mm.ss AM/PM") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
And I want this to save my workbook in the different location as a template. Only it saves the workbook as a regular excel workbook instead. Any help with what I can change to save it as a template?
View 9 Replies
View Related
May 12, 2009
I am dealing with several very large spreadsheets using VBA to do various things. I found that my code worked well, but was taking a long time to run. The biggest time consumer was my use of the AutoFilter features. I have since turned calculations to manual before my code runs and set it back to auto when my code is done running. What are the potential consequences of my turning calculations to manual and then back to auto?
View 2 Replies
View Related
Jan 23, 2010
I have posted already the problem to delete the code when sending a sheet via email and I have found the solution to the problem.
I tried to do the same when saving the file to specific folder, but i am facing problem.
View 6 Replies
View Related
Jun 24, 2014
I'm working on a mac and have a macro that will go through all the sheets in my workbook and save them as PDFs to a specific location.
Sub CreatePDF()
For sh = 19 To Sheets.Count
Sheets(sh).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"/Users/mikemahoney/Desktop/Publisher Payables/Statements/June 2014" & Sheets(sh).Name & "June 2014 Revenue Share Statement" & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
The part in bold is obviously where I am saving the PDFs but it is also being included in the naming of the file. Need replacing the red text in the naming of the file with the contents of cell B9? I would still like to save the PDF to "/Users/mikemahoney/Desktop/Publisher Payables/Statements/June 2014" I just don't want the file-path to be included in the name of the file.
Also, this code seems to run into errors if a sheet is hidden, hence starting at sheet 19. Any way to tweak this code to skip over hidden sheets?
View 1 Replies
View Related
Nov 12, 2012
I am using one spread sheet to store date that gets updated throughout the day and am pulling information form that sheet to another file. I need to save it to get the current data and I don't want to rely on the person entering data to remember to save. The sheet I want to save is called Log.
View 8 Replies
View Related
Nov 17, 2008
I have attached a code that prompt the user for a store # then that number would automatically copy to cell A1 and at the same time it saves the file name as what is copied to A1.
This is a good code but the problem is when the file is closed and re-open, it prompts the user again for a store number and when you select 'Cancel' it replaces the store# already stored in cell A1.
What I am trying to accomplish:
1- When the file is re-opened, it should detect cell A1, if it's empty prompt user for store #, if it's not empty skip the prompt screen.
Private Sub Workbook_Open()
var1 = InputBox("store#")
Range("a1") = var1
var1_filename = var1 & ".xls"
ActiveWorkbook.SaveAs Filename:=var1_filename
End Sub
View 9 Replies
View Related
Mar 31, 2009
i have a workbook that pulls data from 7 other workbooks based off of 3 criteria. In 6 of the 7 workbooks there are 6 sheets and in the last sheet there are 15sheet. All the sheets are used on different computers and currently the member who use these sheets cant remember to save them so the main workbook can pull the information. So I was hoping for a VB code to do the save for them after they enter any data in the range of A1:J50.
Then for the main work book i was hoping for a VB code to auto update after entering the 3 criteria. I have a marco made but it takes awhile to do it. First it saves the sheet, then pulls the information, then refreshes some pivot table, then populates into the proper cells.
View 9 Replies
View Related
May 22, 2007
I have only one workbook in which I would like to enable auto-save. Hence, I do not need the auto-save add-in, which I've already tried. Is there some VBA code that can replicate the auto-save add-in for only one workbook? Also, I would like the default auto-save settings to save every 1 minute and NOT prompt for the save. This workbook gets completely new data every few seconds through a DDE Link, so having it save without prompting would be fine. I liked the auto-save add-in, but it reset to default settings every time the workbook was closed, I'd like to keep the same settings every time the workbook is opened.
View 5 Replies
View Related
Jul 11, 2007
I have code to print an invoice to PDF, here is the printing part.
Sub Macro3()
Application.ActivePrinter = "Adobe PDF on Ne05:"
ActiveWindow.Worksheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="Adobe PDF on Ne05:", Collate:=True
End Sub
When the code runs a box appears asking the user to save the PDF as a filename and the user never saves the correct invoice filename. Is there a way to suprees the box and automatically save as a predetermined name say "Invoice 0012 27-01-01"
View 8 Replies
View Related
Feb 4, 2008
i want to have a macro which will autosave the worksheet/ book automatically every minute so the user doesnt have to keep clicking file and save.
View 9 Replies
View Related
Jan 23, 2014
I have a file that I want to name based on content in certain cells. I.e. "Q-(text from cell G1)-(text from cell B7)-Date(mm_dd_yy)". I want to be able to specify the location where I save this file each time I try to save it, but I want it to update the file's name if any of the parameters have changed.
I have some code generated that does just about everything right except that it automatically saves a version of the file in the folder where the original is located even though it also brings up the dialog box and allows me to save it in another location.
Basically, I want to fix the code below so that it doesn't save what appears to be a backup file each time. Should I be using some sort of savecopyas?
Code:
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Add the quote # to the header
ActiveSheet.PageSetup.RightHeader = "Quote No. " & Range("G1").Value
[Code].....
View 6 Replies
View Related
Dec 20, 2008
I have found some posts about "Auto Saving" and Dave pretty much frowns upon that. But the program I use (via ODBC), for some reason doesn't see the changes I make unless the file is saved. I have it auto-saving right now, but was thinking, maybe it is better to export a copy.
What I would need, is the ability to take my current workbook and export it to a new file (overwriting that same file each time), and do this based on time or (even better) on a change in the data. My current workbook is set to pull from other CSV files, scraping our website, etc., and then I use Excel to format the data the way I want.
It would be cool, if I could export two versions each time too... one that would be like a archive of what the file was like when it changed, the other would be the one that just gets overwritten each time.
Love this site...tons of info...but dang am I not smart at this stuff. Half the time, I don't even get where to put the code...worksheet, module, workbook?
View 6 Replies
View Related
May 20, 2008
http://www.excelforum.com/excel-programming/641622-auto-save-to-a-file-via-macro-or-program.html
i have a macro that saves specifically to a folder
that contains a job number and customer name
ie \serverjob_fileJ5212 - Sumnerdocs
i have encountered a problem where the name is spelt differently
the folder is actually called j5212 - sumner
but if i type j5212 - summer it wont obviously save and comes up with an error because of the spelling mistake
despite my folder being as it is
is there anyway i can get this to save to the folder with just the j5212??
View 14 Replies
View Related
May 22, 2012
I am looking for some code to auto save my workbook into this location every 15 min,
View 1 Replies
View Related
Apr 1, 2008
I have a workbook.
I would like to automate with code the process of extracting one worksheet from that workbook, and saving it as a separate workbook, with a file name equal to the text value of a cell (date formatted dd-mm-yy) from within that workbook. (ie d1="10/07/08" save file with one worksheet 10-07-08.xls)
View 9 Replies
View Related
Feb 16, 2004
I close an existing excel file I need to automatically save it to another folder as the same name. I don't want any prompts or save as boxes to appear when this happens.
I need to do this as I use the file all the time, but need to save it on to a network where others can view it.
View 9 Replies
View Related
