Access security ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li mozda neko zna kako da se onemoguci da se sa Shift udje u Access bazu?! Cuo sam da moze da se spreci da se udje u dizajn tabela i kverija Poznato je da se moze uci u dizajn tabela i kverija i kada je ekstenzija (.MDE)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

kako mozes uci u dizajn kada si konvertovao bazu u mde?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nisi me razumeo!!!

Kad se baza konvertuje u .MDE ne mozes uci u dizajn forme, reporta i modula.

li u dizajn tabela i kverija iako je .mde, mozes sa -shift- uci kako hoces! meni treba da zastitim tabele i kverije! nije potrebno da bude .mde, moze da bude i .mdb. znam da postoji nacin da se to uradi ali ne znam kako. cuo sam da se to radi preko -control panel- > -odbc- > -dsn-.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na drugom mjestu sam vec rekao da se takva prava definisu preko grupe/liste korisnika

Tools
Security
---User and Group Permisions
---User and Group Accounts

Neznam bas kako ovo funkcioniose u Accessu, ali cini mi se da je slicno kao u SQL serveru, a tamo ima mnogo mogucnosti.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zastita od SHIFTA-a

Otvori novi modul, prekopiraj ovo u njega, parkiraj se na donju funkciju i startuj "RUN" u VB ili fino napravi macro koji poziva funkciju

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Code sam ubacio i radi sasvim OK! Jedino što bih mi trebalo je da kako da je otključam! Ono što je najbitnije je da se ne dozvoli da se udje u dizajn tabela i kverija! A .mde to dozvoljava! Probao sam sa user parmision i user account ali postavi LOGON isto kao i klasičan password!