şöyle olur. sen programa bir şifre yazarsın ve o şifre makinanın (pc'nin) hard disk seri numarasını tarar veya başka bir donanımının seri numarasını alır. sende bu numarayı alırsın ve buna göre lisans ürettirirsin. tabii haliyle şifre ve lisans key bilinmeden program açılmaz açılsa bile açanın işine yaramaz makroları etkinleştiremez. Ama işi bilen biri için bunları bulmak çok zor olmasa gerek. hele elinde bir de vba kırıcı program varsa gerisini sen düşün...
ama bir başka dosyaya bağlanır ve içeriği çeşitli programlarla kilirlenirse bu iş biraz daha zorlaşir. ama unutulmaması gereken tek şey excelin hiç bir zaman güvenliği yoktur. sadece güvenliği anahtarın nerede olduğunu bilemeyen açar. o yüzden en güvenli excek dosyası ganahtarı çok ve farkılı plan dosyadır.
Sub Autpen()
Dim WscNetwork As Object
Set WscNetwork = CreateObject("WScript.Network")
If WscNetwork.UserName = "pc01" Then
GoTo ok
Else
MsgBox "Yetkilendirilmemiş Kullanıcı", vbDefaultButton3, "Üzgünüm": Exit Sub
Set WscNetwork = Nothing
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.