ضمن سلام خدمت استاتید عزیز و گرامی
لازم است که دستورات زیر رو قبل از اجرای دستوراتی دیگر در ابتدای باز شدن فایل اکسلی که ایجاد کردم بزارم ، تاریخ رو تغییر میدم و فایل رو اجرا میکنم اما اگه
تاریخ سیستم رو به عقب ببرم فایل باز میشه ( نتیجه اینکه قسمت اول دستورات اجرا نمیشه ) ممنون مبیشم اگه راهنمایی بفرمایید چگونه این دو دستور رو با هم ادغام کنم
لازم بذکره که دستورات بتنهایی در فایل جداگانه اجرا میشه
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
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)