Kako zakljucati Access aplikaciju

Kako zakljucati Access aplikaciju

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.
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



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!

Ko je trenutno na forumu
 

Ukupno su 1259 korisnika na forumu :: 30 registrovanih, 8 sakrivenih i 1221 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, amaterSRB, Bobrock1, bojank, bokisha253, Botovac, Brana01, Centauro, cikadeda, dencorr, dragoljub11987, Fabius, FileFinder, Georgius, Griffon vulture, ILGromovnik, Ivica1102, JOntra, Još malo pa deda, Kubovac, Lucije Kvint, Mcdado, Milos ZA, opt1, raptorsi, rodoljub, Srle993, Tvrtko I, vladaa012, vladulns