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