Thanks everyone for your valuable reply. I will try with it to get the good result. Thanks again.
Regards Pravin Gunjal. De Premor d...@premor.net via<http://support.google.com/mail/bin/answer.py?hl=en&ctx=mail&answer=1311182> googlegroups.com 7:11 AM (11 hours ago) to excel-macros To keep in Track, we can add some user environment in filename '============================================================= Dim fName As String, fPath as string, fTag as String fPath = "\\your-computer-name\my-shared-folder\" '<-- Set This to Your Full Path Of Your Shared Folder to Create Backup fName = Environ("computername") & "(" & Environ("username") & ") " & Format(Now(), "yymmddhhmm") & " " fTag = "BeforeEdit" ThisWorkbook.SaveCopyAs fPath & fNameStr & fTag & " - " & ThisWorkbook.Name ThisWorkbook.Save '============================================================= That code will save backup file named "EDITORCOMPUTERNAME(EDITORUSERNAME) YYMMDDHHMM BeforeEdit - SomeWorkbook.xlsm" Ex: *MCMRWKS-ICT(Premor)** 1307050837** BeforeEdit - Someworkbook.xlsm* 1307050837 => Year Month Date Hour Minutes (In Two Digit each) If We want to create backup before user make some change in workbook, put that on Workbook_Open event If we want to create backup while saving workbook, then put that code to Workbook_BeforeSave, and change fTag to "AfterEdit" That tag will make us more clearly to identify the file, from where that file edited, by who, and when the do that Thanks, [dp] ---------- Forwarded message ---------- From: Anoop K Sharma <aks.sharm...@gmail.com> Date: Fri, Jul 5, 2013 at 6:26 AM Subject: Re: $$Excel-Macros$$ Files / Folders Sharing Query - reg. To: excel-macros@googlegroups.com VBA...given good idea..I havn't tried it. Yet, you can write below code. It will SaveAs your backup file automatically every time you close your main workbook to the destination of your choice by overwriting previous one. Just copy and paste below in "ThisWorkbook" module. Change the path highlighted below. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs FileName:="C:\Anoop\" & ActiveWorkbook.Name 'You Can Change path here to the backup file ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Anoop Sr. Developer On Thu, Jul 4, 2013 at 8:04 PM, vba <v...@vabs.in> wrote: > hey > > PFA attach file with macro to backup folder. > > Thanks!! > > > On Thu, Jul 4, 2013 at 6:09 PM, Pravin Gunjal <isk1...@gmail.com> wrote: > >> Can I get some more suggestions on this topic.. Thanks. >> >> Regards >> Pravin Gunjal. >> >> ---------- Forwarded message ---------- >> From: Pravin Gunjal <isk1...@gmail.com> >> Date: Thu, Jul 4, 2013 at 2:14 PM >> Subject: Fwd: $$Excel-Macros$$ Files / Folders Sharing Query - reg. >> To: excel-macros@googlegroups.com >> >> >> Hi Anoop, >> >> Thank you for valuable information. Is there any option to create a >> back-up / auto up-dation in some other location, and not in the same folder. >> >> Regards >> Pravin Gunjal. >> >> ---------- Forwarded message ---------- >> From: Anoop K Sharma <aks.sharm...@gmail.com> >> Date: Thu, Jul 4, 2013 at 1:28 PM >> Subject: Re: $$Excel-Macros$$ Files / Folders Sharing Query - reg. >> To: excel-macros@googlegroups.com >> >> >> Ok, you can do one thing.. SaveAs your Excel File. While doing this, you >> see a dialog box. Click on "Tool" drop down near "Save" button and select >> "General Option". In "General Option" dialog box, check on "Always create >> backup"...supply password (if you think it is required). Hide this back up >> file by changing its properties. This will keep creating backup file in >> same folder where your original one is located but it can't be seen as you >> will hide it. >> >> >> On Thu, Jul 4, 2013 at 10:21 AM, Pravin Gunjal <isk1...@gmail.com> wrote: >> >>> Hi Anoop >>> >>> I do not want to restrict my folder from unnecessary access instead I >>> want it to be used by others. >>> >>> Regards >>> Pravin Gunjal. >>> >>> ---------- Forwarded message ---------- >>> From: Anoop K Sharma <aks.sharm...@gmail.com> >>> Date: Thu, Jul 4, 2013 at 5:36 AM >>> Subject: Re: $$Excel-Macros$$ Files / Folders Sharing Query - reg. >>> To: excel-macros@googlegroups.com >>> >>> >>> If you right click on any folder and check its properties, there you >>> can see a security tab. >>> If you are an administrator or have administrator's right then you can >>> restrict your folder from unnecessary access. This can be done on the >>> folder in shared shared drive. >>> >>> >>> On Wed, Jul 3, 2013 at 5:27 PM, Pravin Gunjal <isk1...@gmail.com> wrote: >>> >>>> *Point No. 1* >>>> >>>> Please note, in my office computer I have stored a folder (which >>>> contains only “xlsb” files) in my roaming profile id; which need to be >>>> shared with some other colleagues in the same office. But there no >>>> privilege for sharing from one computer to another computer in our office. >>>> Hence it can not be accessed from my computer to my colleagues computer, >>>> as we are using Roaming Profiles in our office. >>>> >>>> >>>> >>>> Moreover, we have been given a common drive, which can be accessed by >>>> other users. If I put this folder in a common drive then other users can >>>> access it. But we do not have any backup facility for common drive, and >>>> hence it is unsafe for using. >>>> >>>> >>>> >>>> OR >>>> >>>> >>>> >>>> *Point No. 2* >>>> >>>> If I put my folder in common drive to use others also, is it possible >>>> to make auto backup / auto updation somewhere in my computer’s desktop. >>>> >>>> >>>> >>>> Can I have good suggestions, how to share the folders / files, in this >>>> situation. Thanks in advance. >>>> >>>> >>>> >>>> *With regards,** >>>> **Pravin Gunjal* >>>> >>>> -- >>>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>>> https://www.facebook.com/discussexcel >>>> >>>> FORUM RULES >>>> >>>> 1) Use concise, accurate thread titles. Poor thread titles, like Please >>>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >>>> will not get quick attention or may not be answered. >>>> 2) Don't post a question in the thread of another member. >>>> 3) Don't post questions regarding breaking or bypassing any security >>>> measure. >>>> 4) Acknowledge the responses you receive, good or bad. >>>> 5) Jobs posting is not allowed. >>>> 6) Sharing copyrighted material and their links is not allowed. >>>> >>>> NOTE : Don't ever post confidential data in a workbook. Forum owners >>>> and members are not responsible for any loss. >>>> --- >>>> You received this message because you are subscribed to the Google >>>> Groups "MS EXCEL AND VBA MACROS" group. >>>> To unsubscribe from this group and stop receiving emails from it, send >>>> an email to excel-macros+unsubscr...@googlegroups.com. >>>> To post to this group, send email to excel-macros@googlegroups.com. >>>> Visit this group at http://groups.google.com/group/excel-macros. >>>> For more options, visit https://groups.google.com/groups/opt_out. >>>> >>>> >>>> >>> >>> >>> >>> -- >>> Regards, >>> Anoop >>> Sr. Developer >>> Facebook ID - https://www.facebook.com/anooop.k.sharma >>> >>> -- >>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>> https://www.facebook.com/discussexcel >>> >>> FORUM RULES >>> >>> 1) Use concise, accurate thread titles. Poor thread titles, like Please >>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >>> will not get quick attention or may not be answered. >>> 2) Don't post a question in the thread of another member. >>> 3) Don't post questions regarding breaking or bypassing any security >>> measure. >>> 4) Acknowledge the responses you receive, good or bad. >>> 5) Jobs posting is not allowed. >>> 6) Sharing copyrighted material and their links is not allowed. >>> >>> NOTE : Don't ever post confidential data in a workbook. Forum owners and >>> members are not responsible for any loss. >>> --- >>> You received this message because you are subscribed to the Google >>> Groups "MS EXCEL AND VBA MACROS" group. >>> To unsubscribe from this group and stop receiving emails from it, send >>> an email to excel-macros+unsubscr...@googlegroups.com. >>> To post to this group, send email to excel-macros@googlegroups.com. >>> Visit this group at http://groups.google.com/group/excel-macros. >>> For more options, visit https://groups.google.com/groups/opt_out. >>> >>> >>> >>> -- >>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>> It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>> https://www.facebook.com/discussexcel >>> >>> FORUM RULES >>> >>> 1) Use concise, accurate thread titles. Poor thread titles, like Please >>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >>> will not get quick attention or may not be answered. >>> 2) Don't post a question in the thread of another member. >>> 3) Don't post questions regarding breaking or bypassing any security >>> measure. >>> 4) Acknowledge the responses you receive, good or bad. >>> 5) Jobs posting is not allowed. >>> 6) Sharing copyrighted material and their links is not allowed. >>> >>> NOTE : Don't ever post confidential data in a workbook. Forum owners and >>> members are not responsible for any loss. >>> --- >>> You received this message because you are subscribed to the Google >>> Groups "MS EXCEL AND VBA MACROS" group. >>> To unsubscribe from this group and stop receiving emails from it, send >>> an email to excel-macros+unsubscr...@googlegroups.com. >>> To post to this group, send email to excel-macros@googlegroups.com. >>> Visit this group at http://groups.google.com/group/excel-macros. >>> For more options, visit https://groups.google.com/groups/opt_out. >>> >>> >>> >> >> >> >> -- >> Regards, >> Anoop >> Sr. Developer >> Facebook ID - https://www.facebook.com/anooop.k.sharma >> >> -- >> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >> https://www.facebook.com/discussexcel >> >> FORUM RULES >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> 2) Don't post a question in the thread of another member. >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> 4) Acknowledge the responses you receive, good or bad. >> 5) Jobs posting is not allowed. >> 6) Sharing copyrighted material and their links is not allowed. >> >> NOTE : Don't ever post confidential data in a workbook. Forum owners and >> members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google Groups >> "MS EXCEL AND VBA MACROS" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to excel-macros+unsubscr...@googlegroups.com. >> To post to this group, send email to excel-macros@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros. >> For more options, visit https://groups.google.com/groups/opt_out. >> >> >> >> >> -- >> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >> https://www.facebook.com/discussexcel >> >> FORUM RULES >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> 2) Don't post a question in the thread of another member. >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> 4) Acknowledge the responses you receive, good or bad. >> 5) Jobs posting is not allowed. >> 6) Sharing copyrighted material and their links is not allowed. >> >> NOTE : Don't ever post confidential data in a workbook. Forum owners and >> members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google Groups >> "MS EXCEL AND VBA MACROS" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to excel-macros+unsubscr...@googlegroups.com. >> To post to this group, send email to excel-macros@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros. >> For more options, visit https://groups.google.com/groups/opt_out. >> >> >> > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups > "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/groups/opt_out. > > > -- Regards, Anoop Sr. Developer Facebook ID - https://www.facebook.com/anooop.k.sharma -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
