VBA Excel Pemula 20 : Cara UnProtect WorkBook
VBA Excel 20 : Cara UnProtect WorkBook - Sebelumnya kita telah menerapkan Prosedur Protect WorkBook seperti yang pernah kita bahas pada Posting VBA Excel Pemula 19 : Cara Protect WorkBook Agar Data Terlindungi,
Pada prosedur Protect data tidak dapat di ubah jika tanpa mengetahui Password atau kata sandi.
Pada prosedur Protect data tidak dapat di ubah jika tanpa mengetahui Password atau kata sandi.
bagi kita yang punya aplikasi prosedur untuk unprotect dapat diterapkan dengan kode sehingga untuk membuka password atau kata sandi kita dapat mengklik tombol Unprotect saja.
Berikut Syntax Kode VBA Unprotect Workbook :
Workbooks(“Your Workbook Name”).Unprotect([Password], [Structure], [Windows])
Keterangan Syntax kode VBA UnProtect Workbook :
Password : Merupakan pilihan untuk menentukan kata sandi.
Struktur: Merupakan pilihan dengan False atau True. Standar Struktur adalah False. Jika kita menyebutkan True berarti melindungi struktur workbook.
Windows: Merupakan pilihan False atau True. Standar Struktur adalah Jika kita menyebutkan True berarti melindungi Jendela workbook.
- Buka Excel, buat data seperti terlihat pada gambar gif diatas, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
- Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 20" dan tambahkan CommandButton1 dengan Caption "Protec WorkBook 1", dan CommandButton2 dengan Caption "Protect WorkBook 2". Untuk kode Protect WorkBook Buka Posting VBA Excel Pemula 19, CommandButton3 dengan Caption "UnProtect"
- Klik kanan pada CommandButton3 dengan Caption "UnProtect", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton3_Click()
ActiveWorkbook.Unprotect “YourPassword”, True, True
End Sub
ActiveWorkbook.Unprotect “YourPassword”, True, True
End Sub
Demikian Posting VBA Excel 20 Pemula : Cara UnProtect WorkBook. Semoga dapat dikembangkan menurut kebutuhan aplikasi. Bagi anda yang memiliki metode atau kode lainnya Silahkan share di kolom komentar.
Posting Komentar untuk "VBA Excel Pemula 20 : Cara UnProtect WorkBook"
Komentar Anda Sangat Menentukan Kelangsungan Blog ini