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

[Sumiyanto -]

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