zxz | 18.03.2017 01:22 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Za @freeman mozes otvoriti i novu temu ako hoces u vezi ovog pitanja nacina zastite. |
blingaro | 22.03.2017 19:36 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Moje rešenje je sledeće: Modul pod nazivom "Provera" Public Function Ima(Putanja As String) As Boolean Ima = (Dir$(Putanja, vbDirectory) <> "") End Function Na neku formu na događaj OnOpen stavim sledeće Private Sub Form_Open(Cancel As Integer) 'Proverava da li na zadatoj putanji na HDD-u postoji folder "Pera" If Not Ima("C:\Users\Pera") Then MsgBox "Neovlašcena kopija aplikacije! Pozovite autora 011/123-456!", vbCritical, "UPOZORENJE" DoCmd.Quit End If DoCmd.OpenForm "Izbor" Na kod (VBA) stavim šifu i to je to. Znam da je šifru moguće provaliti, ali i za to treba neko znanje (program). Možda nije najsrećnije rešenje, ali šta je - tu je. |
zxz | 22.03.2017 19:42 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja hehe rjesenje je rjesenje. Ja bih rekao ovo je za postene od @blingaro aako neko hoce ukrast djaba ti zastita. Svaka se moze razbit samo je pitanje koliko ces vremena ostaviti. Ovo je ovako lijepo i jednostavno rjesenje. |
blingaro | 22.03.2017 19:46 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja A može i da se napravi tabela Radnici sa spiskom radnika (npr. Igor, Miki, Suki) i onda se unese sledeći kod koji proverava putanju do foldera: 'svaki radnik ima svoj folder na "C:\Users\" If Not Ima("C:\Users\" & DLookup("Radnici", "Radnici")) Then MsgBox "Neovlašcena kopija aplikacije! Pozovite autora 011/123-456!", vbCritical, "UPOZORENJE" DoCmd.Quit End If DoCmd.OpenForm "Izbor" Onda se sve to zapakuje u *.mde. Nadam se da će nekom koristiti. |
freeman | 23.03.2017 21:16 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena. |
blingaro | 24.03.2017 18:12 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Citiraj freeman: Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena. Zaboravi ha napomenem da i ovd ide modul Public Function Ima(Putanja As String) As Boolean Ima = (Dir$(Putanja, vbDirectory) <> "") End Function |
blingaro | 24.03.2017 18:13 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Citiraj freeman: Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena. Ako stignem preko vikenda okačiću primer. Ako ne, onda od nedelje. |
blingaro | 03.04.2017 19:09 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Citiraj freeman: Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena. Dodao bih svoje rešenje u *.rar formatu, ali mi javlja poruku "Već postoji!". Kako da okačim primer, zna li neko? |
|
Prilozi: wewewe.rar (Velicina datoteke:188.94 KB) |
blingaro | 03.04.2017 19:12 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Uspeo sam da ga okačim u prethodnom postu, ali je malo nelogično da me sajt upozorava da fajl već postoji. U svakom slučaju u nastavku je komentar na prethnodno okačen fajl pod nazivom "wewewe" (kakvog li imena?!) U prilogu je jednostavna zaštita koja se sastoji iz provere da li na zadatoj putanji “C:\Users\...” postoji zadati folder. Kako se menja radna stanica tako je potrebno promeniti u tabeli radnici naziv krajnjeg foldera na datoj putanji. Nije ovo najsrećnije rešenje. Na VBA staviti password ili zapakovati u *.mdb (*.accde). A može i da se “veže” za neki fajl na nekoj putanji na disku. Na primer ja sam smislio neki prazan fajl “waccess.dll” (nema veze sa *.dll fajlom, ali lepo zvuči) i skembao ga na datoj putanji. Na Event procedure "On open" neke forme staviti sledeći kod: Dim Ima As String Ima = Dir$("D:\Pera\MojiFajlovi\waccess.dll") If Len(Ima) > 0 Then Else MsgBox "Neovlašćena kopija aplikacije ! Pozovite autora 011/123-456-78 !" DoCmd.Quit End If End Sub |
freeman | 06.04.2017 19:33 |
---|---|
Predmet:Re: Zaštita access baze od kopiranja Hvala blingaro na tvojem vremenu koje si odvojio za ovo rješenje.Probat ću napraviti neku kombinaciju između tvojeg i Gjoreskog rješenja ako zapnem vaša pomoć će mi dobro doći.Pozdrav |