Cara Protect dan Unprotect Semua Sheet Excel Sekaligus dengan Password Menggunakan VBA

Table of Contents

Microsoft Excel adalah salah satu aplikasi pengolah data yang paling populer digunakan. Dalam beberapa kasus, kita mungkin ingin melindungi sheet Excel kita dari perubahan yang tidak diinginkan atau untuk menjaga kerahasiaan data. Salah satu cara untuk melakukannya adalah dengan menggunakan fitur Protect Sheet yang disediakan oleh Excel.

Namun, jika Anda ingin protect dan unprotect semua sheet Excel sekaligus dengan password, maka supaya lebih cepat Anda dapat menggunakan VBA (Visual Basic for Applications) untuk melakukan hal tersebut, jika sheet yang anda gunakan banyak.

Dalam artikel ini, kita akan membahas cara protect dan unprotect semua sheet Excel sekaligus dengan password menggunakan VBA.

Cara Protect Semua Sheet Excel Sekaligus dengan Password Menggunakan VBA

Berikut adalah contoh kode VBA yang dapat Anda gunakan untuk protect semua sheet Excel sekaligus dengan password:

Sub ProtectAllSheets()
	'ExcelIndonesia.net
    Dim ws As Worksheet
    Dim password As String

    password = "masukkan_password_anda"

    For Each ws In ThisWorkbook.Worksheets
        ws.Protect password:=password, _
               drawingobjects:=True, _
               contents:=True, _
               scenarios:=True
    Next ws
End Sub

Untuk menggunakan kode di atas, Anda dapat mengikuti langkah-langkah berikut:

1. Buka file Excel yang ingin Anda protect.
2. Tekan tombol Alt + F11 untuk membuka jendela VBA Editor.
3. Klik menu Insert > Module untuk membuat modul baru.
4. Salin kode di atas dan tempelkan ke dalam modul baru.
5. Ganti masukkan_password_anda dengan password yang ingin Anda gunakan.
6. Klik tombol Run atau tekan tombol F5 untuk menjalankan kode.
7. Jangan lupa simpan file excel dalam format xlsm atau xlsb

Cara Unprotect Semua Sheet Excel Sekaligus dengan Password Menggunakan VBA

Berikut adalah contoh kode VBA yang dapat Anda gunakan untuk unprotect semua sheet Excel sekaligus dengan password:

Sub UnprotectAllSheets()
	'ExcelIndonesia.net
    Dim ws As Worksheet
    Dim password As String

    password = "masukkan_password_anda"

    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect password:=password
    Next ws
End Sub

Untuk menggunakan kode di atas, Anda dapat mengikuti langkah-langkah yang sama dengan langkah-langkah untuk protect semua sheet.

Dengan menggunakan kode VBA di atas, Anda dapat protect dan unprotect semua sheet Excel sekaligus dengan password. Pastikan Anda untuk mengganti masukkan_password_anda dengan password yang ingin Anda gunakan. Semoga membantu, apabila ada yang kurang di mengerti silahkan tanyakan di kolom komentar di bawah.