Prikazi cijelu temu 22.03.2017 18:36
blingaro Van mreze
Clan
Registrovan od:10.07.2015
Lokacija:Beograd


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.