Hapus paswword VBA Ms Access dengan VBA Code

Untuk menghapus password pada VBA Access menggunakan VBA Code, Anda dapat menggunakan skrip berikut:

' Buat objek Project

Dim prj As VBIDE.VBProject

' Buka aplikasi VBA dengan password yang ingin dihapus

Set prj = VBA.VBProjects("C:\database.accdb")

' Hapus password

prj.VBE.VBProjects.Item(1).Protection = False

prj.VBE.VBProjects.Item(1).Saved = True

' Tutup aplikasi VBA

prj.VBE.Quit

' Hapus objek Project

Set prj = Nothing

Skrip di atas akan membuka VBA Access dengan password yang ingin dihapus, kemudian menghapus password tersebut, dan menutup VBA Access. Jika password telah berhasil dihapus, Anda tidak perlu lagi memasukkan password saat membuka VBA Access.

Membuat Password VBA Access dengan VBA Code

Untuk membuat password pada file Visual Basic for Applications (VBA) dalam database Microsoft Access menggunakan VBA Code, Anda dapat menggunakan skrip berikut:

' Buat objek Project

Dim prj As VBIDE.VBProject

' Buka file VBA yang ingin diberi password

Set prj = ThisWorkbook.VBProject

' Buat password

prj.VBE.Protection = vbext_pp_locked

prj.VBE.Properties("Password") = "password"

' Hapus objek Project

Set prj = Nothing

Skrip di atas akan membuka file VBA yang ingin diberi password, kemudian menambahkan password tersebut. Jika password telah berhasil ditambahkan, Anda harus memasukkan password tersebut saat mengakses file VBA tersebut.

Perhatikan bahwa untuk menjalankan skrip di atas, Anda harus mengganti "password" dengan password yang ingin Anda gunakan. Selain itu, jika Anda ingin menggunakan skrip ini dalam aplikasi VBA yang lain, Anda harus memastikan bahwa referensi ke Microsoft Visual Basic for Applications Extensibility 5.3 telah diaktifkan. Anda dapat mengaktifkan referensi tersebut dengan mengikuti langkah-langkah berikut:

1. Buka aplikasi VBA yang ingin Anda gunakan.
2. Pilih menu Tools -> References.
3. Pilih Microsoft Visual Basic for Applications Extensibility 5.3 dari daftar referensi yang tersedia, lalu klik OK.

Sekian Terimakasih

Tweet

Subscribe to receive free email updates: