مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

ذخیره کردن خودکار فایل اکسل در راس ساعت خاص

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • Arashman

    • 2015/01/15
    • 14
    #1

    [حل شده] ذخیره کردن خودکار فایل اکسل در راس ساعت خاص

    سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش در ساعات خاصی از روز مثلا 3 بار در روز ذخیره بشه؟؟
    ممنون میشم راهنمکایی کنید
    برچسب ها: هیچ‌کدام
    • مصطفی رجبی

      • 2015/05/24
      • 73
      • 47.00
      #2
      نوشته اصلی توسط Arashman
      سلام میخواستم ببنیم امکانش هست که مثلا یک فایل اکسل که همیشه روی یک سیستم Run هستش در ساعات خاصی از روز مثلا 3 بار در روز ذخیره بشه؟؟
      ممنون میشم راهنمکایی کنید
      سلام.برای این منظور به آدرس option/save/save Autorecover informationevry .... minبرو و زمان هر بار ذخیره روتعیین کن ولی بیشترین زمانی که میشه تعیین کرد هر 2 ساعت یکباراست.

        کامنت

        • Arashman

          • 2015/01/15
          • 14
          #3
          سلام مرسی از جوابتون
          ولی این روش فایل و اپدیت نمیکنه
          یعنی اگه شخص دیگه فایل به صورت read only باز کنه فایل update نشده بیشتر مو نظرم به شیوه micro بود بازم ممنون

            کامنت

            • ali.b

              • 2014/01/12
              • 798
              #4
              کد:
              [COLOR=blue]Public[/COLOR][COLOR=#333333] dTime [/COLOR][COLOR=blue]As Date[/COLOR][COLOR=#333333][/COLOR] 
[COLOR=blue]Sub[/COLOR] AutoSaveAs() 
    dTime = Time + TimeValue("00:05:00") 
    [COLOR=blue]With[/COLOR] Application 
        .OnTime dTime, "AutoSaveAs" 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
        .DisplayAlerts = [COLOR=blue]False[/COLOR] 
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)" 
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
[COLOR=blue]End Sub[/COLOR]
              کد:
              [COLOR=blue]Private[/COLOR][COLOR=#333333] [/COLOR][COLOR=blue]Sub[/COLOR][COLOR=#333333] Workbook_BeforeClose(Cancel [/COLOR][COLOR=blue]As[/COLOR][COLOR=#333333] [/COLOR][COLOR=blue]Boolean[/COLOR][COLOR=#333333]) [/COLOR]    Application.OnTime dTime, "AutoSaveAs", , [COLOR=blue]False[/COLOR] 
[COLOR=blue]End Sub[/COLOR] 
 
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open() 
    dTime = Time + TimeValue("00:05:00") 
    Application.OnTime dTime, "AutoSaveAs" 
[COLOR=blue]End Sub[/COLOR]
              اگه مشکلتون برای کاربرای بیشتر از یک نفر هست از منوی review بخش share workbook انجام بده

              نوشته اصلی توسط Arashman
              سلام مرسی از جوابتون
              ولی این روش فایل و اپدیت نمیکنه
              یعنی اگه شخص دیگه فایل به صورت read only باز کنه فایل update نشده بیشتر مو نظرم به شیوه micro بود بازم ممنون
              [CENTER]
              [/CENTER]

                کامنت

                • Arashman

                  • 2015/01/15
                  • 14
                  #5
                  نوشته اصلی توسط ali.b
                  کد:
                  [COLOR=blue]Public[/COLOR][COLOR=#333333] dTime [/COLOR][COLOR=blue]As Date[/COLOR] 
[COLOR=blue]Sub[/COLOR] AutoSaveAs() 
    dTime = Time + TimeValue("00:05:00") 
    [COLOR=blue]With[/COLOR] Application 
        .OnTime dTime, "AutoSaveAs" 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
        .DisplayAlerts = [COLOR=blue]False[/COLOR] 
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)" 
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
[COLOR=blue]End Sub[/COLOR]
                  کد:
                  [COLOR=blue]Private[/COLOR][COLOR=blue]Sub[/COLOR][COLOR=#333333] Workbook_BeforeClose(Cancel [/COLOR][COLOR=blue]As[/COLOR][COLOR=blue]Boolean[/COLOR][COLOR=#333333]) [/COLOR]    Application.OnTime dTime, "AutoSaveAs", , [COLOR=blue]False[/COLOR] 
[COLOR=blue]End Sub[/COLOR] 
 
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open() 
    dTime = Time + TimeValue("00:05:00") 
    Application.OnTime dTime, "AutoSaveAs" 
[COLOR=blue]End Sub[/COLOR]
                  اگه مشکلتون برای کاربرای بیشتر از یک نفر هست از منوی review بخش share workbook انجام بده
                  ممنون از micro
                  file share نیستش
                  و البته الان که گفتین میشد فابل share bashe و به بقیه فقط دسترسی view بدم

                    کامنت

                    قبلی template بعدی
                    چند لحظه..