Kullanmaya Sinirlama Getİrmek

Mdemir63 · 24 Aralık 2006

Arkadaşlar örneğin Excelde yaptığımız bir programın başkaları tarafından kullanılmasını engellemek için yani kopyaladık verdik programı yapan kişinin izni olmadan verdiğimiz kişi o programı kullanamasın bunu nasıl yapabiliriz? yada bunu yapabilme şansımız varmı

Şimdiden teşekkürler

Metin Karaağaç · 24 Aralık 2006

şifre koysanız olmuyor mu?
dosyaya hem açılış, hem de değiştirme parolası koyun.
izniniz olmadan ne okuyabilir ne de değişiklik yapabilirler.
(tabii illegal programlarla her türlü engeli geçmek mümkün)

birol_mumcu · 24 Aralık 2006

merhaba;
aşağıdaki kodları çalışma sayfanızın "modül" kısmına yapıştırın ve
strTxtFile As String = "F:\YY\strTxt.txt" kısmında ki gibi kendinize bir dosya .txt dosyası oluşturup dosya yolunu belirleyin. ve dosyanız kopyalansa bile çalışmayacaktır.
not; makro güvenliği seviyasi "çok yüksek" olduğu durumlarda bu işlem çalışmaz

Const strTxtFile As String = "F:\YY\strTxt.txt"
Sub Aut

pen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

Mdemir63 · 24 Aralık 2006

birol_mumcu' Alıntı:
merhaba;
aşağıdaki kodları çalışma sayfanızın "modül" kısmına yapıştırın ve
strTxtFile As String = "F:\YY\strTxt.txt" kısmında ki gibi kendinize bir dosya .txt dosyası oluşturup dosya yolunu belirleyin. ve dosyanız kopyalansa bile çalışmayacaktır.
not; makro güvenliği seviyasi "çok yüksek" olduğu durumlarda bu işlem çalışmaz

Const strTxtFile As String = "F:\YY\strTxt.txt"
Sub Autpen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

strTxtFile As String = "F:\YY\strTxt.txt" bu kodun hangi kısımda ve nereye dosya yolu oluşturmamız gerekir?

Teşekkürler

Mdemir63 · 24 Aralık 2006

Acemi1' Alıntı:
şifre koysanız olmuyor mu?
dosyaya hem açılış, hem de değiştirme parolası koyun.
izniniz olmadan ne okuyabilir ne de değişiklik yapabilirler.
(tabii illegal programlarla her türlü engeli geçmek mümkün)

Sayın Acemi 1 Burada şifreyi verdiğimiz kişi başkalarına dosyayı kullandırabilir onun için böyle birine verdiğimizde oda başkalarına verdiğinde izinsiz kullanma olmasın diye

Teşekkürler

birol_mumcu · 24 Aralık 2006

komutan63' Alıntı:
strTxtFile As String = "F:\YY\strTxt.txt" bu kodun hangi kısımda ve nereye dosya yolu oluşturmamız gerekir?

Teşekkürler

"F:\YY\strTxt.txt" bu kısmı açıklayalım

f= bilgisayarın sürücülerinden biri bu C yada D sürücüsü olabilir
YY= txt dosyasının kayıtlı olduğu klasör
str.txt = dosya ismi bu dosyayı oluşturup bilgisayarınızda herhangi bir yere kopyalayın ve dosya yolunu yukarıdaki gibi değiştirin

birol_mumcu · 24 Aralık 2006

merhaba;
burda "strtxt.txt" dosyası farklı bir isimde de olabilir. kullanıcılar çalışma sayfasını alıp kopyalasa bile bu dosya olmadan acamayacaklardır

Mdemir63 · 24 Aralık 2006

birol_mumcu' Alıntı:
merhaba;
burda "strtxt.txt" dosyası farklı bir isimde de olabilir. kullanıcılar çalışma sayfasını alıp kopyalasa bile bu dosya olmadan acamayacaklardır

Teşekkürler Sn: birol mumcu

peki Keygen eklenemezmi? eğer eklenebilirse nasıl?

alpi · 24 Aralık 2006

Başka bir öneri uygulamanızı verdiğiniz kişinin bilgisayarının hard diskinin seri nosunu kontrol eden bir uygulama yazın. Bu konu ile ilgili forumda bir başlık bulunuyor arama yaparsanız bulursunuz. Örnek uygulamalar ana başlığı altında olmalı yanlış hatırlamıyorsam.

birol_mumcu · 24 Aralık 2006

bu konuyla ilgili syn haluk un yaptığı bir çalışma da vardı

kullanıcı sayısı ve her kullanıcıya ait bir şifre belirleye biliyorsunuz. ve kullanıcı için yapılmış bir uygulamaydı

birol_mumcu · 24 Aralık 2006

aşağıdaki bilgileri takip edin
soru;

excel de yapmak istediğim şey şu belli bir zaman aralığında kullanıcı adı ve kullanıcı kodu sormasını sağlamak kullanıcı adı ve parolası doğru girilmediği zaman dosyayı son haliyle kaydedip dosyayı kapatsın taki doğru kullanıcı adı ve parolası girilene kadar ve tek bir parola olmasın örneğin 72 saatte bir ve zaman aralığını kontrol edebileyim en az üç kullanıcı ve üç parola döngüsü oluştursun "her 72 saatte parolayı ve kullanıcı adını değiştirsin " bana bu konuda kim yadımıcı olur yardımlarınız için şimdiden teşekkür ederim. dostlar...........

cevap olarakta;
belli bir zaman aralığında kullanıcı adı ve kullanıcı kodu sormasını sağlamak
Kod:
Sub auto_open()
Application.OnTime Now + TimeValue("00:00:15"), "Sor"
End Sub

Sub Sor()
UserForm1.Show
End Sub]

kullanıcı adı ve parolası doğru girilmediği zaman dosyayı son haliyle kaydedip dosyayı kapatsın

Kod:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Kullanıcı Adı ve Şifresi Yazmak Zorundasınız.."
Cancel = True
End If
End Sub

Private Sub CommandButton1_Click()
If TextBox1 = Worksheets("Sayfa1").Range("a1") Then
If Val(TextBox2) = Worksheets("Sayfa1").Range("a2") Then
MsgBox "İşlem Tamam"
Application.OnTime Now + TimeValue("00:00:15"), "Sor"
Range("a1") = "Kullanıcı Adı2" 'Herseferinde kullanıcı adı değiştiriyor.
Range("a2") = "Kullanıcı Şifre2" 'Herseferinde kullanıcı şifre değiştiriyor.
Unload Me
Else
MsgBox "Yanlış Şifre Girdiniz"
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
End If
Else
MsgBox "Yanlış Kullanıcı Adı Girdiniz"
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
End If
End Sub
MsgBox "Yanlış Kullanıcı Adı Girdiniz"
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
End If
End Sub

birol_mumcu · 24 Aralık 2006

bu da kullanıcı için olan kodlar;
Merhaba;

Ben bir cevap hazırladım ama tam post edecekken bir kere daha soruyu okuyunca, biraz da fantezi tarzdaki cevabımın sizin istediğiniz şey olmadığını anladım maalesef.

soru syn neo dan
cevaplar; syn htsümer ve syn raider den

Benim cevabımda;

1) Dosya açıldıktan sonra, ekrana Kullanıcı Adı ve Şifre isteyen bir kutu geliyor.

2) Dosyayı açmaya yetkili 3 adet kullanıcı tanımlanmış durumda. Bu kullanıcılar:

- Huseyin
- Turker
- RedKid

3) Kullanıcılar, kendi kullanıcı adlarını girdikten sonra şifre olarak;

- Pazar, Pazartesi, Salı günleri için : sifre1
-Salı, Çarşamba, Perşembe, Cuma, Cumartesi günleri için : sifre2
girmek zorundalar. Aksi takdirde dosyayı açamayacaklar.

Bununla ilgili olarak aşağıdaki kodların tümünü sözkonusu bir dosyada yeni bir modulün içine yerleştirilmesi gerekiyor;
Kod:
Public MyUser As String
Public MyPass As String
'
Sub Aut

pen()
Dim UserArr

UserArr = Array("Huseyin", "Turker", "RedKid")

Select Case Format(Date, "w")
Case 1 To 3
MyPassword = "sifre1"
Case 4 To 7
MyPassword = "sifre2"
End Select

ThisWorkbook.IsAddin = True

MyPasswBox

If MyPass <> "" And MyUser <> "" Then
For i = LBound(UserArr) To UBound(UserArr)
If MyUser = UserArr(i) And MyPass = MyPassword Then
ThisWorkbook.IsAddin = False
MsgBox UserArr(i) & ", girişiniz onaylandı !", _
vbInformation, "Bilgi..."
Exit Sub
End If
Next
MsgBox "Kullanıcı adı ve şifrenizi kontrol edin !", vbCritical, "Dikkat !"
End If
End Sub
'
Sub MyPasswBox()
Dim PassWForm

Set PassWForm = ThisWorkbook.VBProject.VBComponents.Add(3)
PassWForm.properties("Width") = 200
PassWForm.properties("Height") = 120
PassWForm.properties("Caption") = "Şifre girişi !"

Set NewLabel = PassWForm.Designer.Controls.Add("forms.Label.1")
With NewLabel
.Width = 50
.Height = 18
.Left = 8
.Top = 22
.Caption = " Kullanıcı Adı :"
End With

Set NewLabel = PassWForm.Designer.Controls.Add("forms.Label.1")
With NewLabel
.Width = 50
.Height = 18
.Left = 8
.Top = 44
.Caption = " Şifre :"
End With

Set NewTextBox = PassWForm.Designer.Controls.Add("forms.TextBox.1")
With NewTextBox
.Width = 120
.Height = 18
.Left = 60
.Top = 20
.PasswordChar = "*"
.ForeColor = vbRed
End With

Set NewTextBox = PassWForm.Designer.Controls.Add("forms.TextBox.1")
With NewTextBox
.Width = 120
.Height = 18
.Left = 60
.Top = 42
.PasswordChar = "*"
.ForeColor = vbRed
End With

Set NewCommandButton1 = PassWForm.Designer.Controls.Add("forms.CommandButton.1")
With NewCommandButton1
.Caption = "Vazgeç"
.Height = 18
.Width = 50
.Left = 70
.Top = 72
End With

Set NewCommandButton2 = PassWForm.Designer.Controls.Add("forms.CommandButton.1")
With NewCommandButton2
.Caption = "Tamam"
.Height = 18
.Width = 50
.Left = 130
.Top = 72
End With

With PassWForm.CodeModule
X = .CountOfLines
.InsertLines X + 1, "Sub CommandButton1_Click()"
.InsertLines X + 2, "Unload Me"
.InsertLines X + 3, "End Sub"
.InsertLines X + 4, "Sub CommandButton2_Click()"
.InsertLines X + 5, "MyUser = TextBox1"
.InsertLines X + 6, "MyPass = TextBox2"
.InsertLines X + 7, "Unload Me"
.InsertLines X + 8, "End Sub"
.InsertLines X + 9, "Sub UserForm_Activate()"
.InsertLines X + 10, "Me.SpecialEffect=3"
.InsertLines X + 11, "End Sub"
End With
VBA.UserForms.Add(PassWForm.Name).Show
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=PassWForm
End Sub

Soruyu tekrar okuduğumda sonradan anladığım kadarıyla, sanki bahsettiğiniz bu dosya günün 24 saati kesintisiz olarak açık durumda ve siz 72 saatte bir kullanıcı ve şifre kontrolu istiyorsunuz. Bu durumda sizin kullanmanız gereken yöntem Application.OnTime metodunu kullanmak olacaktır.

İşinize yaramayacak ama, kodları hazırlamışken yine de buraya post etmek istedim.

Belki bir başkasının işine yarar...

Mdemir63 · 24 Aralık 2006

birol_mumcu' Alıntı:
"F:\YY\strTxt.txt" bu kısmı açıklayalım

f= bilgisayarın sürücülerinden biri bu C yada D sürücüsü olabilir
YY= txt dosyasının kayıtlı olduğu klasör
str.txt = dosya ismi bu dosyayı oluşturup bilgisayarınızda herhangi bir yere kopyalayın ve dosya yolunu yukarıdaki gibi değiştirin

Hocam aşağıdaki gibi mi ? (Benim Dosyamın adı Stok Takip) Ayrıca bu dosya xls ben txt dosyasını nasıl oluşturmam gerekir açıkcası hiç bir fikrim yok özür dilerim

ÖRNEK:
C:\Documents and Settings\Belgelerim\Stok Takip

Not: benim bilgisayarımda Stok Takip dosyasının yeri aynen yukarıda örnek olarak yazdığım yerde
ve hocam size zahmet bu dosya adına göre verdiğiniz kodları düzenleyebilmeniz mümkün mü?

SAYGILAR

Mdemir63 · 24 Aralık 2006

aşağıdaki sizin verdiğiniz koda dosya yolumu yazdım çalıştı . ama tabi önce dosyamı txt 'ye çevirdim. Kod çalıştı ve kayıtlı kullanıcı değilsiniz diye ekrana mesaj verdi dosya da doğal olarak açılmadı. buraya kadar tamam peki ben dosyayı nasıl açacağım tekrar

saygılar

Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"
Sub Aut

pen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

birol_mumcu · 24 Aralık 2006

Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"

merhaba;
yukarıdaki Stok takip klasörü içine mausu nuzu sağ tıkyapıp yeni>metin belgesi oluşturun ve metin belgesi adını "strTxt.txt"olarak değiştirin sayfanız çalışacaktır

Mdemir63 · 24 Aralık 2006

birol_mumcu' Alıntı:
Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"

merhaba;
yukarıdaki Stok takip klasörü içine mausu nuzu sağ tıkyapıp yeni>metin belgesi oluşturun ve metin belgesi adını "strTxt.txt"olarak değiştirin sayfanız çalışacaktır

Hocam merhabalar
dosyayı açmaya çalıştığımda çıkan mesajı kapatıyorum sonra aynı yerde sağ klik yapıyorum yeni diyorum metin belgesi seçeneği diye bir şey yok size çıkan pencerenin resmini gönderiyorum

Teşekkürler

birol_mumcu · 24 Aralık 2006

bir yanlış anlaşılma var sanırım
önce masa üstüne mausu sağ tık yapıp bir txt.dosyası oluşturun ve dosyanın adını "strtxt.txt" olarak değiştirin. başka isimde olabilir ama makronun ilgili satırında isinde değişmeli.

ve bu dosyayı makronun
Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"
satırındaki "C:\Documents and Settings\Belgelerim\Stok Takip\ dosya yolunu takipederek masaüstündeki txt dosyasını "stok takip" klasörüne yerleştirin
(buişlemler yapılırken çalışma sayfanız kapalı olsun.)
ve çalışma sayfanızı yeniden açın

Mdemir63 · 24 Aralık 2006

birol_mumcu' Alıntı:
bir yanlış anlaşılma var sanırım
önce masa üstüne mausu sağ tık yapıp bir txt.dosyası oluşturun ve dosyanın adını "strtxt.txt" olarak değiştirin. başka isimde olabilir ama makronun ilgili satırında isinde değişmeli.

ve bu dosyayı makronun
Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"
satırındaki "C:\Documents and Settings\Belgelerim\Stok Takip\ dosya yolunu takipederek masaüstündeki txt dosyasını "stok takip" klasörüne yerleştirin
(buişlemler yapılırken çalışma sayfanız kapalı olsun.)
ve çalışma sayfanızı yeniden açın

Hocam inanı kafam karıştı siz söylüyorsunuz ben yapmaya çalışıyorum beceremiyorum kusura bakmayın sizi de yoruyorum ama yine olmadı ben dosyamı gönderiyorum

saygılar

birol_mumcu · 25 Aralık 2006

birol_mumcu' Alıntı:
bir yanlış anlaşılma var sanırım
önce masa üstüne mausu sağ tık yapıp bir txt.dosyası oluşturun ve dosyanın adını "strtxt.txt" olarak değiştirin. başka isimde olabilir ama makronun ilgili satırında isinde değişmeli.

buraya kadar sorun yok

[/QUOTE]ve bu dosyayı makronun
Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"
satırındaki "C:\Documents and Settings\Belgelerim\Stok Takip\ dosya yolunu takipederek masaüstündeki txt dosyasını "stok takip" klasörüne yerleştirin
(buişlemler yapılırken çalışma sayfanız kapalı olsun.)
ve çalışma sayfanızı yeniden açın[/QUOTE]

ikinci kısımda yapmanız gereken (ekli dosyada resimli örnek)
diyelimki "stok takip" klasörünü D sürücüsü içinde "komutan63" klasörüne kopyaladınız. bunun dosya yolu aynen şöyle olur. D:\komutan63\stok takip
şimdi bu klasör ( stok takip) içinde bir text dosyamız olsun. "strtxt.txt" şimdi bu text dosyasının yolu nasıl olacak. oda aynen D:\komutan63\stok takip\strtxt.txt şeklinde olur.

burda yapmanız gereken size yolladığım kodların
Const strTxtFile As String = "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt"
satırındaki "C:\Documents and Settings\Belgelerim\Stok Takip\strTxt.txt" dosya yolunu yukarıda yaptığımız şekilde değiştirmeniz. bu da aynen
Const strTxtFile As String = "D:\komutan63\stok takip\strtxt.txt" şeklinde olacaktır.
burda unutmamanız gereken en önemli şey text dosyasının adını ne koyarsanız koyun kodların ilgili satırındaki ad aynı olmalıdır. ikinci önemli konu ise anlatmaya çalıştığım gibi dosya yolunu doğru belirtmeniz gerekir.

Mahmut Bayram · 25 Aralık 2006

Kesin çözüm benim yöntemimdir.
CPU veya herhangi bir donanım bileşeninin seri nosuna göre şifre üreten programdır. Bir yere yedeklemiştim. Bulursam eklerim.
Kolay gelsin.
Aslında profesyonel biri mutlaka çözer.

Kullanmaya Sinirlama Getİrmek

Özel Üye