نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: بک آپ گبری

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2013/04/27
    تاریخ عضویت
    May 2012
    نوشته ها
    79
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    بک آپ گبری

    با درود. من فایل اکسلی دارم که میخوام به صورت اتوماتیک بعد از اعمال تغییرات در اون و در زمان خارج شدن از اکسل یک نسخه بک آپ از اون در جایی دیگر از سیستم ذخیره بشه. میشه روش رو برام توضیح بدید؟ سپاس
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: بک آپ گبری

    یک ماکرو در هنگام save as گرفتن ضبط کنید و در قسمت name به تابع time ارتباط بدید event هم ازین استفاده کن Workbook_BeforeClose

  3. #3


    آخرین بازدید
    2013/04/27
    تاریخ عضویت
    May 2012
    نوشته ها
    79
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: بک آپ گبری

    با درود و سپاس
    راستش من زیاد وارد نیستم.اگه براتون امکان داره روش رو برام توضیح بدید.
    سپاسگذارم.

  4. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: بک آپ گبری

    فایل پیوست تقدیم شما فقط مسیر فایل رو به دلخواه اصلاح کنید
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm BACK.xlsm اطلاعات (15.7 کیلو بایت, 136 نمایش)

  5. سپاس ها (1)


  6. #5


    آخرین بازدید
    2013/04/27
    تاریخ عضویت
    May 2012
    نوشته ها
    79
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: بک آپ گبری

    دوست عزیز سپاسگزارم. فقط روش ساختش رو هم اگه امکان داره برام توضیح بدید.

  7. #6


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: بک آپ گبری

    ابتدا از تب developer گزینه record macro رو بزنید بعد از فایل یک save as بگیرید سپس فایل رو باز کنید و کد ذخیره شده رو با کدی که من نوشتم مقایسه کنی اختلافات کوچکی خواهید دید هر جاشو متوجه نشدید بفرمایید در خدمتم

  8. #7


    آخرین بازدید
    2013/04/27
    تاریخ عضویت
    May 2012
    نوشته ها
    79
    امتیاز
    2
    سپاس
    0
    سپاس شده
    2 در 2 پست
    تعیین سطح نشده است

    RE: بک آپ گبری

    با عرض پوزش. فکر کنم باید از ابتدا شروع کنم. چیزی از این چیزا که فرمودید نفهمیدم. من کلاس یا آموزشی در مورد vba یا ماکرو نویسی نرفتم. به همین خاطر برام کمی مشکله. از لطفتون سپاسگزارم.

  9. #8


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    سلام این فایل ها کار نمیکنن ممکنه دوباره اپلود کنین
    ممنونم


  10. #9


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    سلام
    این کد ئاسه پشتیبان گیری خودکار هست یعنی هر بار که در فایل تغییرانی دادین به صورت خودکار عمل میکنه و موقغ بستن یک پشتیبان میگیره
    اما اگه فایل رو باز کنین اما تغییری ندین موقع بستن پشتبان نمیگیره
    کد:
    Private Sub Workbook_Deactivate()
    
    End Sub
    
    
    
    
    Private Sub Workbook_Open()
          Application.Caption = "Microsoft Excel AutoBackup"
    End Sub
    
    
    
    
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
          Dim MyFilePath$, Extension$
          MyFilePath = MyPCpath("MyDocuments")
          Extension = Left(ThisWorkbook.Name, Len _
                                              (ThisWorkbook.Name) - 4) & " Backup"
    
    
    
    
          On Error Resume Next      '<< folder exists
          MkDir MyFilePath & Extension      '<< create folder
          'save current version of this book in the folder
          ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
                                              Extension & "\" & Extension & _
                                              (Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls"
    End Sub
    
    
    
    
    Public Function MyPCpath$(Folder)
          MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
                     (Folder) & Application.PathSeparator
    End Function



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

بک آپ خودکار اکسل

بک آپ اتوماتیک در اکسل

بکاپ خودکار اکسل

پشتیبان گیری در اکسل با vba

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است