Bu bölümde düzenleme yapabilir, If şartlarını kaldırabilir veya en son alternatif olarak sistem tarihini değiştirebilirsiniz.
Dim saat1 As Date
Dim saat2 As Date
saat1 = Sheets("NOT").[B33]
saat2 = Date
If saat2 > saat1 Then
MsgBox "Programın kullanım süresi dolmuştur. İyi günler.", vbSystemModal, Sheets("NOT").[A14] & " " & Sheets("NOT").[A15] & ""
ActiveWorkbook.Close
End If
If saat1 - saat2 < 91 Then
If saat1 > saat2 Then
MsgBox "Kullanım için sadece " & saat1 - saat2 & " gününüz kalmış olup program " & saat1 & " tarihinde kapanacaktır.", vbSystemModal, Sheets("not").[A14] & " " & Sheets("not").[A15] & ""
End If
End If
'End Sub
