photo آموزش قرار دادن زمان برای انقضاء یک فایل اکسل

تمامی شیت هایی که در آن فرمول خاصی دارید را از داخل محیط 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/bdj78mm6b9…lFile.xlsm
pasword VB: excel iran

برچسب ها درباره :

  • نوشته : مدیر
  • تاریخ : ۱۵ مرداد ۱۳۹۰