آموزش اکسل: حذف فایل اکسل در تاریخ مشخص
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
شاید در ظاهر کدهایی که گفتم یکم سخت بنظر برسه اما سعی کردم ساده ترین حالت ممکن رو ارائه بدم که بتونید بجای حفظ کردن بفهمیدش و بتونید تغییرات دلخواه رو داخل این کد بدید.
کدهای وی بی ای که در آموزش استفاده شده رو پایین این متن مینویسم بتونید کپی کنید.
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
بـار بازدید شده