نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

Collapse
X
Collapse
 
  • صفحه از 2
  • زمان
  • نمایش
حذف همه
new posts
قبلی 1 2 template بعدی
  • sh_amar

    • 2010/10/06
    • 168
    #1

    نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

    سلام به همه دوستان و اساتید محترم
    ببخشید می خواستم بدونم آیا می شود برای یک فایل اکسل تاریخ و زمان انقضاء گذاشت یعنی اگر در فایل ما فرمول هایی تعریف شده که سل های مختلف براساس این فرمول ها کار می کنند بعد از اتمام تاریخ که از طرف سازنده فایل روی آن گذاشته دیگر این فرمول ها کار نکند ؟
    با سپاس فراوان
    [b]The beginning , is the most important part of the work [/b]
    [b]( آغاز هر كار مهمترين بخش آن است )[/b]
    برچسب ها: هیچ‌کدام
    • m_d6712

      • 2010/05/22
      • 174
      #2
      RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

      روش آماده ای که فکر نمی کنم برای این کار وجود داشته باشه اما چند روش با کد نویسی برای این کار وجود داره که در زیر توضیح میدم!


      تمامی شیت هایی که در آن فرمول خاصی دارید را از داخل محیط VBدر قسمت properties برای Sheet ها به حالت VeryHidden تغییر دهید.
      در Workbook این کد را بنویسید.
      Private Sub Workbook_Open()
      Dim expiredate As Date
      expiredate = "01/01/2012"

      If (Now < expiredate) Then
      Sheet1.Visible = xlSheetVisible
      Sheet2.Visible = xlSheetVisible
      Sheet1.Activate
      Else
      Sheet1.Visible = xlSheetVeryHidden
      Sheet2.Visible = xlSheetVeryHidden
      MsgBox ("this file has been expired")
      ActiveWorkbook.Close
      End If

      End Sub

      در نهایت روی محیط VB پسورد بگذارید.


      فایل نمونه: http://www.mediafire.com/file/bdj78mm6b9oc7jb/ExpireExcelFile.xlsm
      pasword VB: excel iran
      -------
      [url=http://md6712.com]http://md6712.com[/url]
      جامعه ایده پردازان: http://idekadeh.com

        کامنت

        • sh_amar

          • 2010/10/06
          • 168
          #3
          RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

          سلام
          خیلی لطف کردید چک می کنم اگر اشکال داشتم دوباره مزاحم میشم
          [b]The beginning , is the most important part of the work [/b]
          [b]( آغاز هر كار مهمترين بخش آن است )[/b]

            کامنت

            • Almasi

              • 2010/07/19
              • 15
              #4
              RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

              Sub Auto_open()
              Dim i

              If Now() > "2011/01/29" Then
              For i = 1 To Sheets.Count

              Sheets(i).Visible = xlSheetVisible
              Sheets(i).Cells.Clear
              Next i
              ActiveWorkbook.Save
              ActiveWorkbook.Close

              Else

              Dim k
              For k = 2 To Sheets.Count
              Sheets(k).Visible = xlSheetVisible
              Next k
              End If

              End Sub


              و

              Private Sub Workbook_BeforeClose(Cancel As Boolean)
              Dim j
              For j = 2 To Sheets.Count
              Sheets(j).Visible = xlSheetVeryHidden
              Next j

              ActiveWorkbook.Save

              End Sub
              توجه داشته باشید کد های فوق طوری نوشته شده اند که اگر قبل از باز نمودن فایل , ماکرو اکسل غیر فعال گردد غیر از شیت یک هیچ شیتی نمایش داده نخواهد شد پس بطور یقیین ماکرو ها عمل نموده و شرط ما را کنترل خواهد کرد و اگر تاریخ گذشته باشد تمامی شیت های مخفی را باز ,تمامی اطلاعات را پاک نموده و ذخیره و در نهایت سند را می بندد .
              [color=#0000CD]هنوز پنجره اي هست براي آنچه نديده ام[/color]

                کامنت

                • amin61b

                  • 2011/02/27
                  • 16
                  #5
                  RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                  اگه کسی تاریخ کامپیوتر رو عقب ببره اون وقت چی ؟
                  زندگی در صدف خویش گهر ساختن است.[align=center][color=#006400][/color][/align]

                    کامنت

                    • Almasi

                      • 2010/07/19
                      • 15
                      #6
                      RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                      سلام
                      شما می تونید با ساخت یک حلقه در زمان باز شدن فایل تعداد باز شدن فایل را بشمارید و سپس با دستور if شرط خود را در تعداد باز شدن فایل کنترل و سپس عملیات خودتون رو از قبیل پاک نمودن اطلاعات و یا مخفی نمودن شیت ها را رو اجرا کنید
                      [color=#0000CD]هنوز پنجره اي هست براي آنچه نديده ام[/color]

                        کامنت

                        • shamsololama

                          • 2010/02/15
                          • 940
                          #7
                          RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                          با درود فروان

                          برای اینکه وقتی تاریخ انقضاء روی یک فایل گذاشتیم بعد از اینکه فایل قفل شد دیگه با عقب کشیدن تاریخ کامپیوتر فایل باز نشود و نیاز است که کدها را بصورتی بنویسیم که هر زمانی که فایل را باز میکنیم آخرین تاریخ را در یک شیت که مخصوص این کار قرار داده ایم ثبت شود و اینکه اگر تاریخ کامپیوتر از آن تاریخ عقب تر بود اجاز ورود ندهد در نتیجه با عقب کشیدن تاریخ نیز فایل اجرا نخواهد شد.
                          البته برای این کار راهای مختلفی است که می توانید برای ثبت این تاریخ در بجای این که در یک سل بنویسید خارج از آن فایل در یک فایل تکست ذخیره شود مثل خیلی از نرم افزارهایی که این کار را انجام میدهند
                          ---------------------------------------------------------------------------------------------------
                          بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                          shamsololama@yahoo.com
                          09177733411

                            کامنت

                            • amin61b

                              • 2011/02/27
                              • 16
                              #8
                              RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                              جناب شمس العلما

                              اگر لطف بفرمایید و یک فایل نمونه ضمیمه کنید ممنون میشم.
                              زندگی در صدف خویش گهر ساختن است.[align=center][color=#006400][/color][/align]

                                کامنت

                                • shamsololama

                                  • 2010/02/15
                                  • 940
                                  #9
                                  RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                  با درود فراوان

                                  به زودی یک فایل نمونه قرار خواهم داد
                                  لطفا اگر دیر شد یادآوری کنید
                                  ---------------------------------------------------------------------------------------------------
                                  بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                                  shamsololama@yahoo.com
                                  09177733411

                                    کامنت

                                    • shamsololama

                                      • 2010/02/15
                                      • 940
                                      #10
                                      RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                      با درود فروان

                                      نمونه فایل با تاریخ انقضاء
                                      که با برگرداندن تاریخ سیستم نیز باز نشود
                                      کلمه عبور
                                      exceliran



                                      فایل نمونه:
                                      [attachment=222]
                                      فایل های پیوست شده
                                      ---------------------------------------------------------------------------------------------------
                                      بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                                      shamsololama@yahoo.com
                                      09177733411

                                        کامنت

                                        • shamsololama

                                          • 2010/02/15
                                          • 940
                                          #11
                                          RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                          سئوال
                                          یک سوال در مورد فایل نمونه داشتم آیا می توان امکان جدیدی به این فایل اضافه نمود به این صورت که به غیر از تاریخ انقضاء تعداد دفعات ورود به برنامه را نیز تعریف کرد مثلا 15 بار و ماکرو ها هر دو بعد را برسی نماید و در صورتی که تاریخ به اتمام رسید فرم پسورد برای اعتبار روز های جدید ظاهر شود و در صورتی که تعداد دفعات به اتمام رسید فرم تعداد اعبار دهی برای تعداد دفعات ظاهرگردد.


                                          با درود فراوان


                                          جواب

                                          فایل نمونه:
                                          [attachment=224]
                                          فایل های پیوست شده
                                          ---------------------------------------------------------------------------------------------------
                                          بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                                          shamsololama@yahoo.com
                                          09177733411

                                            کامنت

                                            • amin61b

                                              • 2011/02/27
                                              • 16
                                              #12
                                              RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                              شمش العلمای عزیز

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

                                              با تشکر
                                              زندگی در صدف خویش گهر ساختن است.[align=center][color=#006400][/color][/align]

                                                کامنت

                                                • shamsololama

                                                  • 2010/02/15
                                                  • 940
                                                  #13
                                                  RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                                  با درود فراوان
                                                  این بستگی به خواسته شما داره که برنامه به چه صورت باشه به هر طریقی که مایل باشید می شود آن را تنظیم کرد
                                                  ---------------------------------------------------------------------------------------------------
                                                  بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                                                  shamsololama@yahoo.com
                                                  09177733411

                                                    کامنت

                                                    • lahijsabz
                                                      • 2011/10/31
                                                      • 4
                                                      #14
                                                      RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                                      میشه محبت کنین این کارو انجام بدین من برای یه شرکت دارم سیستم انبار و حقوق و دستمزد طراحی میکنم خیلی به یه همچین چیزی نیاز دارم

                                                        کامنت

                                                        • shamsololama

                                                          • 2010/02/15
                                                          • 940
                                                          #15
                                                          RE: نحوه گذاشتن زمان برای انقضاء یک فایل اکسل

                                                          نوشته اصلی توسط lahijsabz
                                                          میشه محبت کنین این کارو انجام بدین من برای یه شرکت دارم سیستم انبار و حقوق و دستمزد طراحی میکنم خیلی به یه همچین چیزی نیاز دارم
                                                          با درود فراوان

                                                          فایل را ضمیمه کردم
                                                          پسورد فایل و همچنین وی بی ecxeliran می باشد

                                                          فایل ضمیمه:
                                                          [attachment=375]
                                                          فایل های پیوست شده
                                                          ---------------------------------------------------------------------------------------------------
                                                          بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                                                          shamsololama@yahoo.com
                                                          09177733411

                                                            کامنت

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