اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

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

    • 2012/05/31
    • 18
    #1

    اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

    ضمن سلام خدمت استاتید عزیز و گرامی

    لازم است که دستورات زیر رو قبل از اجرای دستوراتی دیگر در ابتدای باز شدن فایل اکسلی که ایجاد کردم بزارم ، تاریخ رو تغییر میدم و فایل رو اجرا میکنم اما اگه

    تاریخ سیستم رو به عقب ببرم فایل باز میشه ( نتیجه اینکه قسمت اول دستورات اجرا نمیشه ) ممنون مبیشم اگه راهنمایی بفرمایید چگونه این دو دستور رو با هم ادغام کنم
    لازم بذکره که دستورات بتنهایی در فایل جداگانه اجرا میشه

    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If Now() >= Sheets("sheet1").Range("aa1") Then

    Sheets("sheet1").Range("aa1") = Now()

    End If

    End Sub

    ----------------------------------------------------------------

    Private Sub Workbook_Open()

    Dim expiredate As Date

    expiredate = "30/01/2012"

    Dim i

    If (Now() < expiredate) And Now() >= Sheets("sheet1").Range("aa1") Then

    Sheets("sheet1").Range("aa1") = ""

    For i = 1 To Sheets.Count

    Sheets(i).Visible = xlSheetVisible

    Next i

    Else

    MsgBox ("erorr 10000004")

    Dim k

    For k = 2 To Sheets.Count

    Sheets(k).Visible = xlSheetVeryHidden

    Next k

    End If
    برچسب ها: هیچ‌کدام
    • shamsololama

      • 2010/02/15
      • 940
      #2
      RE: اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

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

      برای اینکه تاریخ انقضاء که برای فایل نوشتیم با عقب کشیدن تاریخ سیستم نشه دورش زد درسته که زمان خارج شدن از فایل آخرین تاریخ که فایل باز شده رو هم ثبت بشه و برای ورد این تاریخ چک بشه که تاریخ سیستم از این تاریخ عقب تر نباشه و از تاریخ انقضاء هم بیشتر نباشه

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

        کامنت

        • kazem3570

          • 2012/05/31
          • 18
          #3
          RE: اکسپایر نمودن فایل اکسل ( کمک در ادغام دستورات )

          با تشکر از استاد عزیز و گرامی جناب شمس العلماء
          من کد رو در قسمت اول نوشتم اما بعد از خروج ، مجدداً که وارد برنامه شدم دیدم که دستوری که برای درج زمان هست وارد سل aa1 نمیکنه اگه میشه مجددا راهنمایی بفرمایید



          Private Sub Workbook_BeforeClose(Cancel As Boolean)

          If Now() >= Sheets("sheet1").Range("aa1") Then

          Sheets("sheet1").Range("aa1") = Now()

          End If
          ActiveWorkbook.Save
          End Sub

            کامنت

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