Jika Anda ingin menyembunyikan semua objek dalam program Microsoft Access, agar tidak mudah di import semua objek - objek melalui file Access lain demi keamanan program Access Anda.









Berikut kode vba hidden objek bisa Anda tambahkan :

Sub HideQueries(Optional bHide As Boolean = True)
On Error Resume Next
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)
On Error Resume Next
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)
On Error Resume Next
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

Sub HideMacros(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllMacros
    Application.SetHiddenAttribute acMacro, obj.Name, bHide
Next obj
End Sub

Sub HideModules(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllModules
    Application.SetHiddenAttribute acModule, obj.Name, bHide
Next obj
End Sub

Sub HideTables(Optional bHide As Boolean = True)
On Error Resume Next
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
For Each obj In dbs.AllTables
    Application.SetHiddenAttribute acTables, obj.Name, bHide
Next obj
End Sub

Buat form kosong, tambakan objek button dengan nama Sembunyi.
Pada event On Click isi kode vba :

Private Sub Sembunyi_Click()
On Error Resume Next
HideForms (False)
HideQueries (False)
HideReports (False)
HideMacros (False)
HideModules (False)
HideTables (False)
End Sub

Tambahkan objek button lain dengan nama Tampil.
Pada event On Click isi kode vba :

Private Sub Tampil_Click()
On Error Resume Next
HideForms (True)
HideQueries (True)
HideReports (True)
HideMacros (True)
HideModules (True)
HideTables (True)
End Sub

Jalankan form dan klik tombol - tombol tersebut, lihat hasilnya.

Bila Anda menyukai ini, share ke yang lain, klik disini :