- Katılım
- 23 Eylül 2017
- Mesajlar
- 43
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 02-07-2022
Öncelikle Merhabalar
Rahatsız ettim hepinizi şimdiden kusura bakmayın.
Excel ile yaptığım projeme lisans koymak istiyorum.
Yani süresi dolunca erişim tamamen kısıtlansın ve program sahibinin lisans anahtarı girmesi istensin ve lisans girilince devam etsin.
Bu konuda acil bana yardımcı olabilirseniz çok çok sevinirim
Şimdiden herkeze iyi günler iyi çalışmalar dilerim .
böyle bir kod buldum sitede ama. makrolar devre dışı bırakılırsa excel açılıyor ve bir anlamı kalmıyor.
Rahatsız ettim hepinizi şimdiden kusura bakmayın.
Excel ile yaptığım projeme lisans koymak istiyorum.
Yani süresi dolunca erişim tamamen kısıtlansın ve program sahibinin lisans anahtarı girmesi istensin ve lisans girilince devam etsin.
Bu konuda acil bana yardımcı olabilirseniz çok çok sevinirim
Şimdiden herkeze iyi günler iyi çalışmalar dilerim .
Kod:
Option Explicit
Private Sub Workbook_Open()
If Date >= "15.04.2010" Then
MsgBox "Bu dosyanın kullanım süresi dolmuştur !" & Chr(10) & _
"Lütfen dosyanızın süre lisansını uzatın !", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
End Sub