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

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

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

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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.