Excel ile Lisans Numarası Üretme

Bu dosya, Excel çalışma kitaplarınızı lisanslamak için hazırlanmış bir örnektir. Bilgisayarın C: sürücüsünün seri numarasından bir kullanıcı seri numarası üretir, buna karşılık gelen lisans numarasını oluşturur ve girilen numarayı kontrol eder.

Dosyanın içeriği​

• Sayfa1: Boş bir sayfadır, veri ve formül içermez.
• Module1: Formu açan makro ile deneme süresi ayarlarını yazan makroyu içerir.
• LisansKontrolÜret (UserForm): "HDD Seri No", "Kuruluşta Üretilen Serial", "Kullanıcıya Verilecek Serial" ve "Kontrol Serial" alanlarını, ayrıca "Lisans Üret", "Lisansı Kontrol Et" ve "Farklı Lisans Üret" düğmelerini barındırır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• Düğme1_Tıklat: LisansKontrolÜret formunu açar.
• UserForm_Initialize: Form açılırken C: sürücüsünün seri numarasını Scripting.FileSystemObject ile okur, HDD Seri No kutusuna yazar ve ilk serial değerini üretir.
• serialüret: Saatin bir hanesine göre harf grubu seçer, bu harfleri saat, tarih ve sürücü seri numarasından alınan rakamlarla birleştirerek serial üretir. "Farklı Lisans Üret" düğmesi bu işlemi yeniden çalıştırır.
• CommandButton1_Click (Lisans Üret): Üretilen seriali, karakterlerin yerlerini değiştirerek kullanıcıya verilecek serial haline getirir.
• CommandButton2_Click (Lisansı Kontrol Et): Kullanıcıya verilecek seriali ters yönde çözer ve ilk serial ile karşılaştırır. Eşleşirse "KAYITLI KULLANICI", eşleşmezse hata mesajı gösterir.
• Auto_Open: Dosya açılırken kayıt defterine (GetSetting/SaveSetting) demo başlangıç ve bitiş tarihlerini yazar. Süre bitmişse uyarı verip lisans formunu açar. Lisans değeri HDD seri numarası, Excel sürümü ve yapı numarasından hesaplanır.
• fds: "ProV1" anahtarı altında 15 günlük deneme tarihlerini kayıt defterine yazar.

Makrolar dosya silme veya dışarıya bağlantı işlemi yapmaz. Ancak Windows kayıt defterine ayar yazarlar. Auto_Open bu formlara ulaşmaya çalıştığında hata alabilirsiniz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Düğme makrosunu çalıştırarak formu açın.
3. Formda HDD Seri No ve üretilen serial otomatik gelir.
4. "Lisans Üret" ile kullanıcıya verilecek seriali oluşturun.
5. "Lisansı Kontrol Et" ile numaranın geçerliliğini sınayın.
6. Yeni bir numara için "Farklı Lisans Üret" düğmesini kullanın.

Kendi dosyanızda kullanırken Auto_Open içindeki lisans hesaplama satırını kendinize göre değiştirmeniz gerekir.