تغییر در تاریخ انقضا

[عرفان فداکار]

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

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[majid_mx4]

با سلام

دوست عزیز

لطفا یک شیت خالی به شیت خود اضافه کنید (اضافه بر شیت هایی که میخواهید Hide کنید ) سپس دستور خط چهارم را بشکل زیر تغییر دهید.

If (Now <= expiredate) Then


با سپاس میر

[shamsololama]

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

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

با درود فراوان
همانطور که خودتین هم فرمودین می توانید بجای > از >= استفاده کنید ولی بجای NOw از Date استفاده کنید

If Date <= expiredate Then