Centar za edukaciju-BiH

Predmet:Re: Zaštita access baze od kopiranja

---

Za @freeman mozes otvoriti i novu temu ako hoces u vezi ovog pitanja nacina zastite.

---

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.

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.

---

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.

Predmet:Re: Zaštita access baze od kopiranja

---

Na nekom primjeru bi to bilo jasnije.Naravno ako neko nađe vremena.

Predmet:Re: Zaštita access baze od kopiranja

---

Zaboravi ha napomenem da i ovd ide modul

Public Function Ima(Putanja As String) As Boolean
Ima = (Dir$(Putanja, vbDirectory) <> "")
End Function

Predmet:Re: Zaštita access baze od kopiranja

---

Ako stignem preko vikenda okačiću primer. Ako ne, onda od nedelje.

Predmet:Re: Zaštita access baze od kopiranja

---

Dodao bih svoje rešenje u *.rar formatu, ali mi javlja poruku "Već postoji!". Kako da okačim primer, zna li neko?

Prilozi:

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

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