Çözüldü Her Bilgisayara göre CDkey Mümkün mü

Hunkar50, ilkönce her bilgisayarın HardDisc numarasını girmeniz gerek akabinde hepsi için belirlediğiniz şifreleri girmeniz gerek.

Kolay gelsin.

HTML:

CacaBey' Alıntı:

Hunkar50, ilkönce her bilgisayarın HardDisc numarasını girmeniz gerek akabinde hepsi için belirlediğiniz şifreleri girmeniz gerek.

Kolay gelsin.

Private Sub Workbook_Open()
Dim Sifre As String
If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "1. Bilgisayarın HadDisc numarası" Then
Sifre = InputBox("Şifreyi Giriniz:")
If LCase(Sifre) = "aaaaaa" Then Sayfa1.Visible=xlSheetVisible
End If
If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "2. Bilgisayarın HadDisc numarası" Then
Sifre = InputBox("Şifreyi Giriniz:")
If LCase(Sifre) = "bbbbbb" Then Sayfa2.Visible=xlSheetVisible
End If
End Sub

Genişletmek için tıkla...

Desenize Hocam bu iş beni aşacak, Kolay bir yolu varmı peki. Yada başka bir yolu

Bu arada cevap için teşekkür ederim.

Başka bir alternatif olarak, eğer bahsedilen PC ler kurumsal olarak kullanılıyorsa ve İS oturum açarken her personel "isim.soyisim", "sicilno" yada "tc" gibi benzersiz kullanıcı adı kullanıyorsa bu veriler üzerinden bir sorgulama yapabilirsiniz.

Ancak en nihayetinde bütün kodlar VBE penceresinde görünür olacağı için ve VBA koruması da basit bir işlemle kırılabileceği için bu "her PC" yada "her kullanıcı" için benzersizlik sorgulamasının çok bir hükmü kalmayacaktır. Standart Excel kullanıcılarının çok büyük bir kısmı VBA nın bile ne olduğunu bilmezler ancak işi bilenler 2 dk da kodları açarak dosyayı istedikleri gibi kullanabilirler.

ubak' Alıntı:

Başka bir alternatif olarak, eğer bahsedilen PC ler kurumsal olarak kullanılıyorsa ve İS oturum açarken her personel "isim.soyisim", "sicilno" yada "tc" gibi benzersiz kullanıcı adı kullanıyorsa bu veriler üzerinden bir sorgulama yapabilirsiniz.

Ancak en nihayetinde bütün kodlar VBE penceresinde görünür olacağı için ve VBA koruması da basit bir işlemle kırılabileceği için bu "her PC" yada "her kullanıcı" için benzersizlik sorgulamasının çok bir hükmü kalmayacaktır. Standart Excel kullanıcılarının çok büyük bir kısmı VBA nın bile ne olduğunu bilmezler ancak işi bilenler 2 dk da kodları açarak dosyayı istedikleri gibi kullanabilirler.

Genişletmek için tıkla...

Anladgım kadarıyla ugraşmanın mantıgı yok Hocam . Çok teşekkür ederim.

Hunkar50' Alıntı:

Anladgım kadarıyla ugraşmanın mantıgı yok Hocam . Çok teşekkür ederim.

Genişletmek için tıkla...

Sayın Hunkar50 sizin ihtiyacınızın ve personelinizin bu konudaki bilgisinin ne olduğunu tam olarak bilemediğim için bahsettiğiniz şekilde çalışmak ne derece doğru olur konusunda bir şey söyleyemeyeceğim. Ben sadece ne ile karşı karşıya olduğunuzu tam olarak bilmeniz için gereken açıklamayı yaptım. Ancak belki fark edilmemiş olabilir diye konunun nereye kadar gidebileceği açısından bir şey daha eklemek istiyorum. Bu yazdıklarımdan sonraki adımda neler olabilir konusunu sizin HAYAL GÜCÜNÜZE bırakıyorum.

Diyelim ki bunu yapmaya karar verdiniz ve mesela atıyorum 20 personel için tek tek şifre belirleyerek VBE'ye yazdınız. (Bu şifre kullanıcı adı yada HDD seri numarası olabilir fark etmez.) Bu 20 personelin hiç biri VBA korumasının ne olduğunu ve nasıl kırılacağını bilmiyorsa ve ilerde bunu yapma ihtimalleri de kesinlikle yoksa ve bu personelden her biriyle ÖLENE KADAR çok iyi ilişkileriniz olacaksa güvende SAYILIRSINIZ. (Hala ihtimal dahilinde, kesin değil.) Ancak diyelim ki bu 20 personelden biri de naçizane bendenizim. Sizle bir konuda fikir ayrılığına düştük ve ben de sizin dosyayı KIRMAYA karar verdim. Bunu yaptığımda sadece sizin dosyayı kırmakla kalmıyorum aynı zamanda bütün personelim şifresini de ele geçiriyorum. Dediğim gibi bundan sonrası HAYAL GÜCÜ. Kalın sağlıcakla...