پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

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

  1. #1


    آخرین بازدید
    27 _ 04 _ 2013
    تاریخ عضویت
    May_2012
    نوشته ها
    79
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    بک آپ گبری

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

  2.  

  3. #2


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11584
    سپاس
    4,476
    سپاس شده
    10,966 در 2,948 پست

    RE: بک آپ گبری

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

  4. #3


    آخرین بازدید
    27 _ 04 _ 2013
    تاریخ عضویت
    May_2012
    نوشته ها
    79
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: بک آپ گبری

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

  5. #4


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11584
    سپاس
    4,476
    سپاس شده
    10,966 در 2,948 پست

    RE: بک آپ گبری

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

  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    27 _ 04 _ 2013
    تاریخ عضویت
    May_2012
    نوشته ها
    79
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: بک آپ گبری

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

  8. #6


    آخرین بازدید
    2 روز پیش
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,149
    امتیاز
    11584
    سپاس
    4,476
    سپاس شده
    10,966 در 2,948 پست

    RE: بک آپ گبری

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

  9. #7


    آخرین بازدید
    27 _ 04 _ 2013
    تاریخ عضویت
    May_2012
    نوشته ها
    79
    امتیاز
    1
    سپاس
    0
    سپاس شده
    1 در 1 پست

    RE: بک آپ گبری

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

  10. #8


    آخرین بازدید
    تاریخ عضویت
    January_2014
    نوشته ها
    667
    امتیاز
    1443
    سپاس
    517
    سپاس شده
    1,018 در 349 پست

    سلام این فایل ها کار نمیکنن ممکنه دوباره اپلود کنین
    ممنونم
    بهترین آدم های زندگی ، کسانی هستند
    که وقتی کنارشان بنشینی
    چای ات سرد و دلت گرم میشود


  11. #9


    آخرین بازدید
    تاریخ عضویت
    January_2014
    نوشته ها
    667
    امتیاز
    1443
    سپاس
    517
    سپاس شده
    1,018 در 349 پست

    سلام
    این کد ئاسه پشتیبان گیری خودکار هست یعنی هر بار که در فایل تغییرانی دادین به صورت خودکار عمل میکنه و موقغ بستن یک پشتیبان میگیره
    اما اگه فایل رو باز کنین اما تغییری ندین موقع بستن پشتبان نمیگیره
    کد:
    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 مهمان ها)

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

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

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

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

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

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