Re: [belajar-access] Protect object (Table di BE dan object lain di FE)

[Murid Belajar Access]

Kalau memang tidak ingin dicopy, bisa gunakan ULS (user level security wizard), 
tapi ini juga tidak berguna 
bila ada yang sudah menemukan tools untuk mendapatkan user ULS  /mencrack-nya 
meskipun tanpa mdw.
dan sekarang sdh banyak di pasaran.

Bingung juga ya. di mde - kan, ada mde unlocker
di mdb + password vba - ada vba bypasser

mungkin perlu kombinasi antara Active Directory dan ULS. Jadi user yang bisa 
mengakses dibatasi di level foldernya.
+ audit jejak + custom login. Jadi kalo ada kebocoran, bisa dipersempit 
tersangkanya.

eh udah menyimpang jauh ya.

salam,
murid access
  ----- Original Message ----- 
  From: Sumiyanto - 
  To: belajar-access@yahoogroups.com 
  Sent: Monday, April 13, 2009 17:05
  Subject: [belajar-access] Protect object (Table di BE dan object lain di FE)





  Selamat sore rekan2..


  mohon penjelasan, bagaimana membuat agar object table di database BE, dan 
object lain di database FE tidak bisa di import dari database lain. Yang sudah 
saya lakukan compile file.mdb ke *.mde dan sudah gunakan fungsi hide object 
pada tools>options. tetapi hanya tampak tidak terlihat saja, tapi masih bisa di 
import dari database lain. 


  ini ada code spt dalam buku KTAS, mohon bantuan rekan2 bagaimana cara 
menerapkan dalam aplikasi  

  '--------------------------------------------
  Sub SecuringTables(Optional nHide As Integer = 1)
    Dim db As Database
    Set db = CurrentDb
    For i = 0 To db.TableDefs.Count - 1
    If Left(db.TableDefs(i).Name, 4) = "mSys" Or _
    Left(db.TableDefs(i).Name, 1) = "~" Or _
    Left(db.TableDefs(i).Name, 4) = "Usys" Then
    'Not a Table
    Else
    db.TableDefs(i).Attributes = nHide '1=Hide
    '0=Normal
    End If
    Next
    Set db = Nothing
  End Sub
  '------------------------------------------------
  Sub HideQueries(Optional bHide As Boolean = True)
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllQueries
    Application.SetHiddenAttribute acQuery, obj.Name, bHide
    Next obj
  End Sub

  Sub HideForms(Optional bHide As Boolean = True)
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
    Application.SetHiddenAttribute acForm, obj.Name, bHide
    Next obj
  End Sub

  Sub HideReports(Optional bHide As Boolean = True)
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllReports
    Application.SetHiddenAttribute acReport, obj.Name, bHide
    Next obj
  End Sub

  '-------------------------



  Terima kasih,

   Sumiyanto