MyCity » Baze podataka » Kako zakljucati Access aplikaciju

Kako zakljucati Access aplikaciju

Napisano na dan: 5.8.2008

Kako zakljucati Access aplikaciju
Sledeća strana Pagination

Idi na vrh

Poslao: 05 Avg 2008 07:40
Idi na vrh
offline
  • Pridružio: 05 Avg 2008
  • Poruke: 2

Pomozite molim Vas!

Napravio sam winows aplikaciju u MS Acccess-u, i hocu da zakljucam aplikaciju da je nebi niko sa levim shiftom otvarao!
Da li neko zna za kod kojim mogu da zastitim aplikaciju i ako zna bio bih mu zahvalan!

Pomagajte!

Hvala za pomoc!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 05 Avg 2008 13:33
Idi na vrh
offline
  • Zoran Bujandric
  • Programer
  • Pridružio: 18 Apr 2003
  • Poruke: 152
  • Gde živiš: Podgorica

Za zakljucavanje MDB

Function LockStartup() As Boolean
On Error GoTo LockStartup_Error

ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, False
ChangeProperty "AllowToolbarChanges", DB_Boolean, False
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, False
ChangeProperty "AllowBypassKey", DB_Boolean, False

Exit_:
Exit Function

LockStartup_Error:
msgbox err.Description
Resume Exit_

End Function

Za otkucavanje MDB

Function UnlockStartup() As Boolean
On Error GoTo UnlockStartup_Error

ChangeProperty "StartUpForm", vbVariant, "(none)"
ChangeProperty "StartupMenuBar", vbString, "(default)"
ChangeProperty "StartupShowDBWindow", DB_Boolean, True
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowToolbarChanges", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, True
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True

Exit_:
Exit Function

UnlockStartup_Error:
msgbox err.Description
Resume Exit_

End Function

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume Change_Bye
End If
End Function



Poslao: 06 Avg 2008 11:42
Idi na vrh
offline
  • Pridružio: 05 Avg 2008
  • Poruke: 2

Hvala ti po sto puta!

Svaka cast, prava si faca!

Radi kao sat!

Ima li provalnika...mislim za ovaj kod!
Da li je moguce da je neko otvori, ako je zakljucana!

MyCity » Baze podataka » Kako zakljucati Access aplikaciju

Ko je trenutno na forumu
 

Ukupno su 2571 korisnika na forumu :: 76 registrovanih, 6 sakrivenih i 2489 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 33 bren, 357magnum, ALFASPORTIVO, Aristotle2002, arsa, Atomski čoban, Banovo Brdo, BB, bigfoot, Bojan198527, Borski1977, Citalac, Colt D, darionis, darkdruid72, debeli, djuradj, Dovla 1980, dragisa dragisa, Duce, dukajov, dule10savic, Dunavtisa93, Džekson, GeoM, Georgius, GveX, ilija.24, Jose, Jovan1983, Kaponi, Koplje, laurusri, LeGrandCharles, LostInSpaceandTime, Lotus, Lucije Kvint, maCvele, markolopin, mat, mačković, mercedesamg, Miki 24pbr, miki kv, milenko crazy north, MiljanXD, MiroslavD, Moldovan, Naj-Turs, nebidrag, nemkea71, nevjerna beba, nnovakis, novator, OKT, Paklenica, pein, Piani Jazzer, Pilence, pobeda, raptorsi, redstar72, sistem22, Smiljkovich, Stanlio, stegonosa, stibium51, Stojan Mrsavi, stokssone, synergia, Velibor Radoja, vjetar, vrgudinac, zokizemun, Zoran1959, 79693