آموزش اکسل: حذف فایل اکسل در تاریخ مشخص

SoftwareTrain
SoftwareTrain
643 بار بازدید - 3 سال پیش - در این آموزش یاد میگیرید
در این آموزش یاد میگیرید چطور با برنامه نویسی وی بی ای فایلی بسازید که بعد از مدت مشخص از زمانی که اولین بار توسط کاربر باز میشه حذف بشه یا اینکه بسته بشه و به کاربر اجازه باز کردن فایل رو نده.

شاید در ظاهر کدهایی که گفتم یکم سخت بنظر برسه اما سعی کردم ساده ترین حالت ممکن رو ارائه بدم که بتونید بجای حفظ کردن بفهمیدش و بتونید تغییرات دلخواه رو داخل این کد بدید.

کدهای وی بی ای که در آموزش استفاده شده رو پایین این متن مینویسم بتونید کپی کنید.

Private Sub workbook_Open()
   If IsEmpty(Sheet1.Range("A1").Value) = True Then
       Sheet1.Range("A1").Value = Date
   End If
   
Dim expiry As Date

expiry = Sheet.Range("a1") + 5

   If Date علامت بزرگتر بگذارید expiry Then
       MsgBox "This file Expired, It will be delete.", vbCritical, "Expired!"
           Application.DisplayAlerts = False
           ThisWorkbook.Save
           ThisWorkbook.ChangeFileAccess xlReadOnly
           Kill ThisWorkbook.FullName
   Else
       MsgBox "It will be expire " & expiry - Date & " day later.", vbInformation, "Day left"
   End If

End Sub



00:35 ذخیره فایل اکسل با فرمت xlsm
01:25 فعال کردن تب Developer
01:47 باز کردن صفحه برنامه نویسی اکسل
02:12 محل نوشتن کدهای وی بی ای برای اجرا در هنگام ورود



آدرس سایت ما
website: https://www.arshad-hesabdar.ir

آدرس صفحه اینستاگرام ما
Instagram: Instagram: softwaretrain
3 سال پیش در تاریخ 1400/05/07 منتشر شده است.
643 بـار بازدید شده
... بیشتر