Excel Dosyası Demosu Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle.
Hazır Kod
VBA:
Sub Auto_Open()
Dim bitis As Date
bitis = "27/12/2020"
If Date > bitis Then
MsgBox ("Kullanım Süresi Dolmuştur")
ActiveWorkbook.Close
End If
MsgBox ("Kalan Gün : " & bitis - Date)
End SubAçıklama
Faydalanılması temennisiyle.